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xS/lz^+X^^b-r^x^h 


aii) is. 7*y 

WWKU yt'J-EBIWSV 
7K0i?. •<>5’-7i-7. 

h caot'^ 

-jw*o zzdeftu^saa. 

-5rniZ^^2/-p ; )L : Y^xC7hr. 
K'V KCDS^ii UefcO.CT’y 
= 198, ooora. A^Sz-Wl/Y 

^xC7h=12,800P3) 



A^H^^-n'TL'i: fcf 


3D*— /X— SfWfur^yl 


&mvx£i-x& 3 «5r 7^^ 
-f'votf^tbzx-i \-X7X 
-('vox* mv# r. igt/u^xj 
*5*fiBt,Otttt,>o(3 D- 2- 
/ \-77X-<"jOX = 16, 000R) 
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ffi*/ESD7Jt?7 h U — (Tel. 03-8 16-440 1) 







yyyjbl-i bK 



tC tf<, Z(Dy‘tt3,Z 
fesiveiv, *u,\ 
3&7L'7 1 57l'"jQ0'X--3. 

J8t,\©S*& 

Olio UtftS&tSTUs 
ffl©D8tfyh73/>Bx 5 
<fco£tfmmu:p'y:7X 
(7-Jl/K = 24,000R) 


TGS 


TGSUsThe Graphic Solut- 
lonOflTCStfc^efcO.'W 
-oy^iX^MaiL/eOx 

Wt&Uti, ZWt'y^H'vO 
fflobCTtQPS (Solution),, (T 
G S =44,800P3) 



A.~Lt£7=j?-!'v9T\ ffSIfrSltntfs 


LPsiK^-rh^>'>XT-A) 



A<>, ^>^-71-7, T’-r *?T-l-fe-y ho r'y^K7)'<>tziT* < L^nT4-r„ 


(DVP\-tf-mZ13.-OtL LPS-II 
(Apple II ; 5-i / h ^y^/TJrU) 
Us ii@izeg5'i / h^>‘c^zf 
asuss^s ns©ses 

t.\z-o 

CSM'PUWUC G'y-)l1£o(. l 
PS-II=109,800R) 




&&i>a>^y*yv7h(D'7 = ? 
y-f"j / y^yyvyo TY^'zyj- 
v-<d r ^yyiu\z7’jszz 
dftl/C r +f • (717 K, fflH 

sadfe, zov^hrl^nr 
uso (zy^y^'jO'Qvyvy = 
18.800P3) 
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■ozvxvbyvyz—T: 


m T^-f'+f-^s^o scl3v g? 

BtfBUSUSffiWSDSoTx 

-5v 35 CD33-&3 LI \f0|« x BBSS^Oatf 5* tK? 

cn'fe, ^L'-Y'VL'ILS 
3f»C«flJ«C G')/-JUDB:3©Xfttf x ■£ 
©«3»tt«aW3* fu^-vds^L^LPSIIffl 
*3«V^hZf»Cn3t^3C, 


**Ex «B3B»*nTAft«Sfc4&‘Ct\3x -<><7 
yi'vh7 | j>5'- cn*T\ cG^fflfflmTiiax 
Y^AL^^itoTs tnt^HcAsacosaetf 
tsniuEo l»u z®-<yo^x"jh?uy5> 
-CDttffll7\ 77-®/\-KDe-t, v #BC£9)K 
t*r3<£^IZ&o£o 

*fcx fflISX?5t.K'VLA , U>9-‘C7effi^S 



30 ©»«/*** • + 7- -f • 7-7f^- 


00BBB0BBIBBBBBBB 

fc/vfcfcSIilii-tA? 




amax75'j*'y9'y-) lAOt-t. pauaizH 

USUj <fclAQ^atf&£kUtl3\^©fiy&, u» 

u *©rt8<t«5£x aBSOSai/CBlNBiimV, 

3:tf\ B£/u£ffiV37hJtf5^A2Jffl<tO'C> 
7-!'^*— vjLrU^ratLTi/vat'iit. x^-r 
+f-^v xAb'A;ytf. nvz^fflSAll-tf-LAX 
juris. -&©affi£©£ 

5-5^ 

asns. ^s. ^Y>hftx-©ljiE££ffl«^»tt- 
TK-h^nTivob. mk(Dm]Enti(D*^(»Mm\ 
SS^^tU^jSrCttx 


■£©££- e. *§g®. aM'Htffliirc, a§^«a© 

tf s PC -6001 ^©1^7 7H?— Ixi"9— Co AtffllZ 
hx'x77K-i^s 5> 
'vf/ww^ ffiAt-Krasn^fe^iz®: 
xTU-S&di. £^£^&<f3otf35&*T£l/)3o 
-^fflUcJS. SPffi^-SG T. X 1 ffl£l/C$rU<£; 
^nEv / TV©>P-A-5'-«A*^ glZA^x 
S 0 SEv ^Hfflx^hlZISBIZo^^^S^ P 
C-9801fS ©7-/1-777^797 CSfr^S) t>98 
©C/x7-r''V / 7«ig : £^UIZ4»L'SV7heura 
§«5§tfTU3o 


GT 


*8gtUTBs *-VK'y?3. 

^sttr. «u«8#riaj£P#a5 
3o 7la?W5l/7l!W^W 
SoCS^^GTSSs 6 T 98 = 6 , 
000 — 12 .ooora PC-8801.9801BD 



ASSWdtli. T^T. -WiTlZBASICOT^O^'^CSl^n^o 





izc’T^-iTV^-ffiy Vv-7 

-2/CIJ, <7*-Srffix3Jr^X 

?■?-/ \?-yizftz>i \?-yx 

TVS'-tAx'd, 13c CP7A-- 
G X-lfc775 1J P-I7’-i"?-=3, 
800P9 PC-6001. mkllffl) 


A^OTEIH:. /^->lf<?-' Sr®fflLfcfc<7)„ 


X 1 ©Tx^'yC^-Jl/tU 

rsifgsnss ivj^ypx*- 
*-ttx *£®S£*. ®J«B:£fc» 
(,\©s*r. ®H)&a)£ff. 5V 
ac’K&tk. n--tf-tf®*us 
?-nu vp-y^-stz L/r-te 
-Arsauat\ amo^ttstf 
^D^Xo CXt-x'yt-~77t— K 
HV=]>K->— 5>-= 4,800- 

9.800RX 1 ffl) 





a— If-A^eKT# sfeftAWi-* 0 (Disk)®). *<ntzsb<n'y-ii-bJtntTi'%<MzJ]\ 




popcorn 


^y-Y'y'P'y-JimsLy7K~h(Dmmz s mmu 



5S£5nr*tc©fffl*lffiri/j:-5. 

zn^(Dmm^ut.-Dut 
■d, D3t?T^oE®»t»-3 tx ^(Dmmzmmz 
Il^oEo 

U#U £ 0 /tVD^r^^Y'i^^SiiSs 
«Cfelfcffi©dF1?^^-T?WJfnHEia:B«l/V ts.h 


m- 

»• vy •< 

* * 

( 

• - 

m 

vi * 

( 

m 

it \ 


▲ ^xf-f >$^Aj ( P C-880HW8) 7i>% 

*‘K<nO'(>'?mzibt£\.\ £li+*p«0IS*ff>R 


-$<nzi\n\£s stL»5tvife£rc«s*f3^. 

u ^nriJs £v\oft 

W5. 

popcom ris^ifc anstfffliza/ur 
i\*©»x yru^JUCG^ffigo nz-cJSfffl* 
a 

<D»»/'J'*« • 



A ? 7Aj *A-7*3g (PC -88011Sffl ) 



A '?V T^j ( P C -8801«ffl ) 







A *^A thtzZi fiWIliSH* (FM-7fiffl) 


a -HB&ribj wsmm (PC-980H*ffl) 
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National 




<jR-8oo>-r-r„ 'm- MW 6, 

tzki. 


16K-' <4 K ROM20K-' <4 


JR-800 128,000H 



#*//! /»iF\/iK3it,7 JR-800 




¥e*BAsic^a*<jR-ioo> 



=F226 «S£ (045) 932-1 


WIS (06)345-4161 •3cf[i(075)22 

•«.« (01 1 ) 221-8090 •<lli& (0222) 65-1 1 1 1 • 10 » (0236) 24-210 
41-7133 •l»>!(0542)47-5121 •«**(052)951-6211 
• 038(0878)51-3333 •4t*.441 (093)531-5227 •«« (092) 473-789 






fHEB-¥-1a ~7z> -f / <— b 7° a 7 " -7 A 

REM 3 19 tftl 
DIM D$(36) 

FOR K=1 TO 36: READ D$(K):NEXT K 
IS=1 

READ II ,Q$: COLOR 2:PRINT Q$ 

IF 11=0 THEN 260 
IE=IS+I 1-1 :COLOR 6 
FOR I=IS TO IE 
FOR J=1 TO 36 
PRINT MID$(D$(J),I,1){ 

NEXT J 
PRINT 

FOR K=1 TO 1000: NEXT K 

NEXT I 

IS=IE+1 

GOTO 140 

COLOR 7 

END 


C<7)7°P 7'5AC39^-— v<7)300~ 480fi : ^diiP LT < 


LIII MARK5 


i-4b‘ 


Photo by K.TAKUMA 


POPCOM GRAPH 


November’83 





I 



COLOR 


SCREEN 




^HITACHI 


LIST LPTO'-” CONT 


LOAD I ?DATE$, TIMES |Jj KEY ||| LIST jj RUN 


^<-'>7^77^- 
LIIIMARK 5(s*) 


"< ^ — v • yx^u-^ — " £ i' -9 firsts 
MARK 5 0 

*-*- K CO^BU'fiCZ, IpI/Al'^-A • \s* 
h Us 

. #3t<7) L III btlTU§. 


^=7 7. V/mm % 


aiiED8U<n*^ii, 


POPCOM [GRAPH 

m m, 

^g® p o p c o 

C£L 1 gIZC B SVZ-tf5 
r 5FS9^-.- A^bj rx^zL-o^S, NHKffl 

uv'vir-v>7«^ctBa^T*^o $$$£»* 

BC#rffi£tiib;6li;tt l 9‘Cv XIVJVJWo 

tsZs ^oyy-Y'K-hyoyy^ iugt 


£US3\> !70fT~230fj©FOR~NEXT;£tf-?:©;i 
®©;b-7(< l 9jSU)T?o 180*3~200fT©FOR~ 
NEXT£&x D$(K)tf&IlZ&5A;£«*£ie<r 
©K'oau^tofflJU-Tcg-o 
190 ^©mTd$H««, ^□f*3©X¥5IJS*D $ 
(K)ffl I gg© 1 ££tBWUOS?-o 
R^tlBWL^Ujtetfx S^-SIZx 
tae^ftotxii swcrtciaoBio'c* d$(<) 

©j-9CUS^o Z.ntf300fjtf 5380*3© DATA 
yoy-yzy* iaof5~26ofrT\ s®tt»Cx d 
$CK)tUTx WIZfflgHBriaWStfBx 1 X? 
<3*©s aBt3623W9ttil/Cx «1 5IJC PRINT U 

ruswcs-,, 


lq!^CWBg§©©^X-^C«:-3"Ct^^o120l7 
©READ D$(K) & 300*3-380 fffflDATAXffl 
£?5Ux-?36*g£. mbZjtfflfr cg-o 

D$( <) ®-©-©ISs 13X$Ao>T35<Ox D$ 

c K)dfcaeA*<yii*tf ft^-css*. 

140*3©REAd:£T\ I lBi33tW©ffit¥Zre><!: 
SEtSE.fO^twU Q $#«*©?-!' MI/tTSTo 
COLOR 2 T\ ^ffl&ffl PRINT Q$ffl@£jfclZ}g 
JfcL/CIWo 150f5«u \\ = Q®£.&,yO'7=5L± 
CcTo 130fj v 240*3 
©I Sfc160*7ffll ETN 13£?©$©l S£?g#S 

i E£¥g£®<otbbTx iMfj-c print g-£*a@ 
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-?4=iyABCfrZ>l: 





it. 

&mtm®£% l&t Z 1 14 , 
iKSwRaiLT, i'<fc3fr*KSr-3-Cv»4. 

Ztl 

^MSrlifc O'tS £ £ , & 
®lcSl&-t**‘^T-*i) 0 ***ffiRj&*, 
a t resale a-^ x < ©Kufcjtr^ic*?)* 
Kfcfcfci*. *LV'*\ mz&-ob\ 
tzMztcZfr^ Kt-tmhzV JBrt*. 
fiB****!**^*****:*., ZtffiL, ±R 

L.V^aLfc'Ot;*. 

Oi ») AWcoaSUwli, £ TEIff^ 

fctf*R***fc£iw-CAi. 

*T\ ffcJIli &£■?*>&„ 
t ci a * f Axssia £ ^ a. ft & => > t“ * - ^ i± z 7 
**. 9SUl1\ 

t -3 HTfcWltflt T* o tz 0 Z ft tit AIsSH<0:g 
lzJ*$bL < %\\ 

UT3yKa-#t, £A£*>L-CI2^£'f > 
r-y h Lfc'JT? hr-y h 
IcfroT^*:. 

ii(0^{ V7- ?A KIU i ta^5 ; i t it, p ; 
£TB* BH**>T*,h 7> h fc-3V»T#i J: ”3 . o 
i n *>.i&=.-?tz&ifctrttiz t\zt>^x?ti 
5. — 9 ■ Zf7 4 *$* v ®&Lt: 

CG£^-3„ 
r /77^y7Xj 


" 


***¥«**« 


ata m 


g 4, i3/;7? xm 3-v?\ 
n-^XA^X^tKSii-CV'iwtBIt-C** 

**, »fc. *»wKn— f 

>,-rfcJBv'tB+. Ut^-C, 7" 7 7 4 -y 7 X £ El 

£' Tii 0^ i ^ f f H»* t *.» 7 £ 1 1 L i 
SLt: r ^77j ?$7l0m 

Tl ±i-<, ii9ii-t-V*-b'tih t £. :Wt, # 
/?7, mT^coiTlc. BHfeSftfcjtoifctfo 
:wnbnlf, nmnrft't >1j ps; 
tt- 1«? fia **; * ft -tmz <nr ■?■/'> i4 l Et ^ 

^-rni^L-Ct, inayei-#*'. iSfcf • 
tr;u7T^*-y h «iffctr*> . 

l *? ^ IC * ■*-• tc fc <t o\ 'f >\ ' £ g * 

g*tC77 h7 , ‘x hf 

ItBfcco /77i' b&^M#.<r>ft’7Mkmk t Xg* a 
>t^-7ii. 

avt‘i-7 • /77-( 7^CGIi, 
tint. CGIi. 777&Gfa>f v EIH&*£ 
iiitr-y-vg >t, f^-t£A< tst^'£X'g 
‘ ^t^a^e*-*^*^*****;! 

£fc-t*£SU H****^*^* 9 |:37fa- 


^4000^<7)ig^*<-5I#gic * -7 fc hit -p* 6 „ :W f 

iil± 

SfifcibSSIIfaswaiSSr^oeo^jzir-ofc. 

-9j. CGIi. ]Ef*ftft7)ftttailH*g«ails4 
CAD 

•y K-nP^>) Affile, £il 

i t liv> -5 Kfc i 

Iff. $ 

tp-c? W4 ft T v» * o 

CADIi, if^fn$rf ut<7)BHt9l<* 
a fc. f w t'«^7X® 

1+3, 

*«io#llBfc:, it 
4: 0 , ffl£ 
@*£$-£6^8;. 

£ ■ 4 & f rorfciwsss*i-cvv»fc. 

^7i±4®0®ic|iaGf. &&££*■»£ b 
J pL?3ipf Jii t-en. -6fcS£Sv'Tl, 
fcMap f 4 7") itfilt*fct'7 ii 

tSs. jtfb?«*7fr*$i&S£ilq£T*'ofc. 

S Mil. 15^ It £ El £ l± a £ 0 $ 


7 £ffi-9.t\ 9 ***«rfMa£ilfW £ r 

Htl4 = 

4-KL*>. to t ttttgsof'-'f w fit, 1S^[6] 
tmnWz&ti fh2oooAti><oj& ztT'izt 
§S ? f>(c£<7)^ft400 7J K-x bw.^lcWLX, & 
j6r£tcl0fec9>fe£&*:;c.&- t&TZZfrb. a 


-£*: 9 . **£4r«£5fe£fcLfc9, 

Lfc 9 ?f L/i 9 . 5£f rsiftSr»3 , i‘Lfc.'9, A 

Fflco^lc J:4.ft*rJiJL±coftiiBA { , a > f^.- ?lc J: 
? X^L-C L i a tz<?)T*>2> s Q 
r=7~7lt b AiCG 
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BUS^tRKL 



zzzmmz, 

^n^Bl^lza^-a^^RKL^L/T^^Uci: 
?• M*'©*ti'c / J>usnmi*^t®L;ra&n^ 
KSt>C:©aXD<i:/3\/ulif9 UTBtm.VCFSlX 

z.'DQmmm 

07-113, 2$©M££©37tK7^7 A X<rtf 

<5»SI^<a»J£f*tm\*?o CZCB^8« 
mm^AtiZs w-zvm.nmz^&^zytfy^ 
z^^uxts©., 

(jt'>h'XCCTaMK8:«(BBttx. end, input, 
LET, PRINT, REMfflE©X<?o §*1344^- 

v\zm'omw< B»T±a«isc*i\T#5s 1 1 

'NScfolZbXTSU. 

)[/-y(D&z>y uo^u 

yu^ui B (07-3,7-4) IS, 1 ifffif-9ffl 

®^t^tt^*©st»ffixg-o excise-^ i e 

crtci @<3*©(o]3jU-7tf35<0, ;u->77?5ffl8f4 
S±J©¥lJ^ ! fc7N^>-CL>^^-o fifUSNmxestBS 
C^*9ttiU^^o XfflNtSISJU-ACA&siuC, 
r ffl^bj — ccxaros tt o iz<r£>ccr®)i) 


— JU-^ffltfrptt TWfj N|3 1 1S 

^LSCI3frU©x-?£gL3M5 — £frlA )U 

-^tttixffBeotaBw — hhebsws 
— cteaoxw** o x-9is<Ti2o®e^ii 
CSHk SS&ffl - 1 ©ED jC&£WX3o 

07-3, 7-4G®M*Sib'Cx 7075Zj£BttB 
£5§J$l/CF£lV 

(t>h>CCXOtODWt«:SIW!iBia, DA 
TA, GOTO, IFtTHEN, El/CREADX 
n a SJtfv f720,30,70,80IZIS, r ^^j^ r ajT/#^ 

<tS9S?o »2ll3£S*UX©X#S44'''<- 

~7C353IE»itt^5<£xCUXT&^o 

7COTil>eT>bx, En^^UXfeSl/^© 
©tf r »Jg^j xg-c m 1 OC 5 H5) 

X, S®airt)©»*£Bff(nm)ffl»^*^tfS 
zis.n o ^©15#, SfU/>Cnew)7 , nc/^^JJs 

i^sroOT^z^B^s 
©c®o}g^fc®5fflx^, Enis®ru^-5o' 
07-5©®?r€iItf)Xa»XT*l\o- 
[S*B44^-*PE®9S^] 
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7-1 7°P?7A7A 2 »<7>g 


7-2 7A<7>>j£ftlU 


10 |~~~| 7A 


20 f 


IjAjB 


50 [~~! I X=A-B 
40 \Z 


H* 


50 1 ■ ■ I 


A. B£Afjt 6 
XS-ftHt* 
x^en^i-s 
***>*) 


( * ) 


CO 


7-3 ya?5A7B 


7B<7)^lttilEI 


10 r~~l 7 B 

20 |~~lN=n 

30 r~i s=n 


-> REM 

I . . . 1 a 

.□a<0 0U 100 

■* rr~iN-r~i 

1 . . I s— I ■ ■ I 

90 L- l , , , 1 40 

1 00 REM 

1 10 

120 , . . , 

O « 

130 1 , , I 


I] N,S 


3, 4, 2,7,5 



7-5 




□ 


yo/TAnUfr I , , I I return | 
y’n^yAtni^^ ||| return ~| 


end[end]i!$;b ') „ input[input] Afj 1 ~&„ let[ let] --- $ -tf & «, print[print] 1 " S„ remark[rima:k]i±#4, 
data[deita]4i. t,iitz T—9, go to[gou tu:]--^fr< 0 if [if] i> L--4‘tlfo then[6en] -f<7) t £li. 

read[ri:d]Mti'o list[list]g, run[rAn]^|>, Wnt&o new[nju:]Sf LV'„ 
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mm7-w^x 

±#5, REM, INPUT, LET, PRINT, ENDT^o 

HI*7-3CD»* 

Jlfl'ST'V StfSS'XfflJiC, REM, LET, 0, 
LET, 0, READ, IF, THEN, LET, N + l, LET, 

S + A, GOTO, PRINT, DATA, EtfD‘C9‘ 0 

m*7-4CD«a. 

0 , 0 , N + 1 , S + AT^o 

IEBH7-5 (D&Z 

±#5, LIST, RUN, NEWr<r(/J\3£?rt>m 


Mcmm 

yUj^LilQ, CEB7-6) IS, £txJS^7-7 ©<£ 
OIZUT, nvWDKQ® (CUTIS 7 ©©ffl) ft 
§£3’5£4t)ffl'feffl' C^c 
^40 — 70#forE(for-block)C&'D"C01"C, N £ 1 
^69^'C^®^fe>,Ai:N©«X^tHIU 7*1 

=7t»,7-2=i4t^\oe»cera^r*zt«i 

■OiEl^tfo 

S7-6©^^jiiDr, 7DC79^7o«©a^r 

TSUo 

Ct:>h)ccr»T^iz#sc«5ii^gia,FOR 

tNEXTT^o SBPWSSWMCSIf 

[S3.IS46'n;-5;] 

Z©ffl»A, B^^tgUllA + B,§|g*A - 
B, SHSHA * B, «9*A/Bffi<2n#Hlf5U 
ZollT>ramiS,ZDC7 , aZ7A(SI 
7-i)tn«ci^T:«Bcsifircesa:^rci3-o isn 
ir-fe,' e^- • §k • wdf> ■ «ia©<Bri* ! t>&ii3t 
tW*K©Ml,2,3,4-C»JWStU*E5xdi-5W 
imi-cuso#,, 
yncr^u d 

r^ 0 Bfn$*©ffl(B7-io)ea5fts<fc3e* si 

toC r ^-zL-j ^IZAtBtK©!!^^ 

^nr, ££SlSl200,800,2£J®SU 
K=2r$*f£«|**tBf5U«*Sl200 


- 800 = 400 fflckoCED^l^<roC^-5Z£ ' 

©.^izis (sTop) dp- o^ia^nizfs^sfe 

©) 

ST, B7-8fflS83r«Ji«)-C, ZD^Z7D^ 
fSSttTTSUo 

(t>h) k © ecj® i;TS^stz3 / \^/3\ 
!l»gtf®5mT^tf(07-9)^ffl£©ICon-gotoS 
«6-5tiI3tf5V'W<lTB0). [SxlS46^-y] 

x©i»g 

u»STcmTXEX(*tium«n0cD«!«®3s:rr 

retail af?(remark)©£it)fflST, WfgggREM 
©3 d£C, £to«S?£M^Tfc<fc5l>U* 
inputs Atlffi^©ffi35:r,INPUTffl^4:IZ, g 

$©S£ (□>^-cEtD'oazf5) 

letx let ga=a ©»*u7:(/vc, sa© 

r i£j ®H£:£©T, £21© r g$j 
prints: ED^fflStofflSr, PRINT ffl»tC,S 
■pweB^aa^roniiejtM^ □>? , 
-CEffliO^g-o 

ends 7D^Zffi»fcffiST, ENDgggg: 
fto 

readS READ ©ag<*:IZg»©S^, 
tz 9t)8:£fe>Ji''?®B*U-aW. ^©S^ize 
SBiWMSBStL**#, -&©«!£ dataSttSIX 

dataS DATA ©»<t:C:g»t, 
«tf£>aG''^£UTl,Wo ^©XE&tf, reads 
©®tc^ot, )R4?iz®^nri9)g^g-o d ata s 

SS, IK^aSOT-fc/tmi^tt/Uo 3A]C©data 

s©‘£©3AT©x-5'tf, ®^m:u5iiic, « 

Hatton**,, 


^S7-1 1 ©Hx (i»T*U£®<!:T15Zi;) 

±tt£>BIZ, STEP, TABo 

^M7"13(Z)aX (e«T»tM6®«tr* *C<t) 

±*'5JllZ,<=vLET,M=A,> = ,LET,N=Ao 
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for[f5a] •••(;: ■OV'T. block[bbk]KjSj„ next[nekst]cfc<7) 0 stop[stop]jhtf).S» on[Dn] --lC.#o\'T<, 
statementfsteitmant] £„ step[step]|£, tabulation [ta&bjuleiSan]ft^ 0 
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goto£ GOTO Qgg © JfcfcUTlYC, HO 
if-then $[ IF THEN Qgg fflJBfcl/C 

uT r ^j^‘oriotgm r osgjffltcs / \ 

JUtf, 

forx for g«=ai to ag ®»ti/cu 
x> r ^ J ®e^ r scijCDii#5 r sc2jCD<i^'c^^ 
&tfSx WKWSneitXSrfflFWtfiWOVS 

fe®^ o 

nextJt NEXT g« OJJBtl/ClfWo Hi; 

r £»j££<D(Zfl£9BulZ3D&-Sfil,\) for xt 

MZ&-DT&mmfr£tl£m&^fr^l5(DT<?o 

on goto# ON a GOTO OSS, -, Qgg 

©Bti/ciw. c r a;j ®«1 xZ^-ckbi;xi*Sx 

2#g. -fflOSSffltZ^^U^^. 

**SJO 

rara h m o ttE#&«M&T, h gg 

zt t.<DVfcizmQ*f]z>z®<y 07 ^ urn e cb 
7-11) r^o t®no»aiBx st^.1^7-12®^ 
^izao*?, 

tcsx, S7-ii iz&gmmmm& 9 3^050 
©fflptt I ®giJ* (MM) tMteffitCS, 060 

ffl^ris, msim^GLm&mi vtezmfev&t 
csr^c 
cfcUTUefcOtfo 
[S^IS44^-27(CS t D^X 0 ] 

Oboisie®^ ; xi&D^rustffflx, 3tO£L 

O50~70fflforE 

£&or. osoA^etsiz, tzfflprintsrctt 
Utoxatotfotm^o 

r J = 5LZl F (07-13)£^gEJOTT£1/'o . 
HO^*IS07-15®cS-5IZ«:SB^'C9'o 
HAIB^MIZ, *t|vBfcNlZfK>UU*9- 0 x— 
iMoDLt 

iOfiBTFc^tao =tzz, M©®iifliiao, n©.*d 5$ 
IBISlOOtOTte®^^ (020, 30 ) o -&®®t , O 

4o~i2o©;d-xt&,x-5'£— ^ a izi^rEOH 


or#5, oso-riorMtN^Mff^zt^ii'o 
MfrfflOftB:, B7-14®3RinBCroL/X 
&< 03 f$o nutts «fU/\x-^A^ 
©SSKgMtttAO, AtfMcfcg^SUfcttKtt' 
Afflfi«MEAnt»Se*«BirU 
izzX/iTt.d^c-g-sfflr^o z®&z>umm^ 
juzr^isi f ®O80 — 1 1 wzmm&ntfmmzno 

[S^«44^-5/*IZ^tO^^] 

yuyyi^iKZ, A^B^xBSsrc^o^nii 

iicae«fc:nxu^tttfx ^fflg^fflfflr^o 
£$©Mia7DC^®HOtWZ£*D2> <!£:#£< 
&<omy c 

yuyyisiFZs 02o©o^03o© ioo ia*»r 
^■o ffi*ffliiB:*r)*Zt«»f9*1i/uo 
letX®Sffl.O^‘0 = fflSillZISs -ft&iza^g 
<Z£IZ«oT0Wo HK.7DX^7A©O30 
013, -&ZIZS A-B tf,S£7B©O7O.8OIZ0:*: 

n-en n+i ^ s+a mwi, tracts 
6L-ouiz«xr©^g-« 0 -Ox ^©^suffi®© 
tGIv SR-Otfltttfx ®R-0£tt£tftfF 
Sn*?o 7BffiO20,30 J £>, 7FfflO20s30S:OO^ 
»— OJt£tt©BIX9'U 7 F ®O90x110 IJ$«— Q 
ffo-fflHiaffl-c^. 

prints® r EDHJSgj tLXtHRIZ r ^j 
O^Oo HU, 7DffiO60x80x 100x 120IZI3S5L' 
©stfAxr©^ o£tt®»dfc 

^<x Ol/MIl\O ; ?:xO<i:0ix-C i fed;©|gircXo 

^07 E© " » 11 adtt r XH5U£$j ffliWo 


n*7-ecD»^ 

±»5TAx itfSOAfflAilZ, REM.INPUT, 
PRINT, FOR. LET, PRINT, 11 * "," = “, NEXT, 
ENDo 

r=?M7-8©g% 

±«'STA,^a'S6Affl)lilZ,REM,PRINT, PR 

INT, INPUT, ON, GOTO, PRINT, GOTO, PRINT, 
GOTO, PRINT, » ,G0T0.PRINT,7", GOTO, ENDo 
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7-11 1 faffUlF.— 


10 REM 7E 
[-► 20 REM 


30 

40 


60 

70 

80 


L -90 GOTO 20 
100 END 


INPUT H 

IF H=0 THEN 100 -| 

FOR 1= 0 TO 33 I . . I H 

PRINT QZ1 (I) ! "* *"? 

NEXT I 
PRINT 




- (JRt«fc) 

- H*A2lf5> 

- H = 0 

- I *0*>'638S THAT'S: AT 
IB I ItfciCSEPfcJTOfcWTttL) 

- X<n l Kite 

- afefi-r* 

- *t20^HU: 

- *?*>•) 


7-12 7E<Z)*ftlS*«>« 


RUN 

? '1 

* * *.* *********************************** 

? 2 

******************** 

? 3 

************* 


* 

? 0 


* * * * 
* * * 


MEPfc- 

— 

-2(*fcs - Ct: 
— 3Jtfcl- t\Z 
-UltzB ZtiZ 
-SiltzSZtlZ 


-13 | 

fa ffh.1V **fil t S'M« 

10 

REM 7F 


20 

LET M=0 

M, N<7) 

30 

LET N= 1 00 

fflJUHt 

. 40 

REM 


50 

READ A 


60 

PRINT A 


70 

IF AC 0 THEN 130 


80 

IF A COM THEN 100 1 


90 

1 i i-J 1 . i-J i 

M. N <n 

100 

IF ACDN THEN 120 i 

**r 

110 

CUCI] i_ 



7-14 IVk N(7)!E^T 


• 120 GOTO 40 
130 PRINT M; N 
140 DATA 24,30,31, 
150 END 


2,5,79,50, 



7—i5 
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tzo<7°p 


7'P'y^<fL^5(2) 


9cR§?IZ70v7<Tfls<D'f-L>7077 
k«fe$*n , WSUfc. «/ur*S7 K-jUfc 
r 7D'VC7S:U7n'V 
?<3*Uj TU&^ UcfcUcfc^ESr^S/u 
£ L<fco. 


vuo^umfe 

7Uh7<^(D7\ U77L0M1**, $fe^§r 
IS, :3tf©6 0CMl/CS;l*US. 

©Ttt-^^fg^^^-'v h-c^cniiBiiajgSo 
©^'VhCilSiSB&tf^J&R— JUIS^TU* 
tv fr£#7tf-;utf±35tfe>^r*So 
©7K-;uzfTn'y9C^est» 7(=)'v9Bm, 
tk— ; usis«ig-5o 

cnsfflos, ©~@IS$t^S-C7D^55>C7 

^<r 0 u&u ^n^isns^-H&^cDrg-o 
©#5©IS70'yCK^L©:7n^tfflf!lS : £ 
ajULtfcO'cg-o zn5©©s«§iMrcc, a 
t^©7-tCW^tC5Sl$<*t*SIZIS, 7CK7 

ho 



J f-Li(D)ls-)\;&mZ 

7D77is£mm&*a?&v&it8aMzii, 
Z(D'f-L<D)l-)b1&*5hj£%;mVo zzns, 
o^©S;olz^©^Ls;-5o 
©7it-^©«is5jstu g-^r©7K-;^«:< 
&WSGAME OVER|Z3"So 
©GAME OVER|Z&o£t£, r Retry y or n_, 
(D^y\z— -^a&rcU r yj — r>L;E 

s, mm$'f-h*<v'mo 
®^'^xay7U'i>otJnxn\ts mu^yay? 
*mmnz>o z©t«, 7 K-;wdsb*<!>u8 

<7Z>o 

@«JSIS, T£©:70'y?#B±Bffi:7D\y? £ 
mv\z.[stzt!-z>- CIOj^v 20j£, 30*$, 40j£tiS 
<nz>&^> iz<3-£o 

£U:ffi;[/HU£U£tfor:7nc^t£»2>£fx 

st, ^©^’□-5 i -\7— hsei ©«fc-3Es$s 

3\> hCUAiRtf^a'OW* 


■f?* P/SflT-O 


■C^o 7U"J 

7<7 i^aat / \©#ireB*'tiM* 


QED 





■ HI 7'n-y^ <fu?)7 n-7- + - h 


#-JIXD» 

tf— JMD*tt**C-C#OStfo ^7 'VKCtK- 
;i/«JS-€:Cie-33S<5:*N Z>^9y =24IZ£7>£t 
SZ©fi£ 1 78£>l^7o -£©*£117 0 <fc«9*e 

ME 0VEFTC7o 

7D'V7a?^lEt77JU-77IZU3:7o ycxF5: 
U J7h©*7 SSI 000-1 0807Zffl77*U-77r 
7o 0£Z>ffl7D'V7IS 5 iffi r ijt 1 *@ffl r I jT 
8U^7o siffl7777'V77?£77'J>U]\£ 
<So‘Cl,^7o t&‘0ffi7D'V7£ffi7S«l : £fE 
■SteitfC^o _hT®7D'V7©H!IZ7£ig£*'P-5© 
ttetftnwcx etsaxasostfo 

BLOCK^ESU 

*7*51050© B( Y-3 , INT( X/6)-2 ) = 1 IZ&@ 

l/C<JffSt\o X. YIS7D'V9^»^7SCZ«ffl 

®pr^o zffi^A^ns. 7D'v7^ i est^7 
sct«z2«7cffl»uizi tte'vhurtWo b 
(4, 6 )T««*nTl/\*ZfflE5y»N 7D'V7© 
*§&£¥y)£73£0>ffl'fcfflr7. i#:|S7D'V7© 
« • *tfflffiB£SU^7o B(2, 3)B*Z*tt3S 
©7lD'v7£^U *©7D\y7£fErcl/C</'*£: 
eis i -c^o 7(=i'v77mntf z©ii£ o iz 

U^7o 

7D'y^ro>i*iaso«Hi 

7O'y7r©u«® | 0®a i fe77*i/-5 1 >rg-o 
7D77ZJJ7hffi*7g5ll00~l2407Z©77/l' 
-7>T?77, hcfflffliB^UMrW’o ^ffiSB 
£77D'V7 < 7 b©7D77^© > h 

|Z#9S7o 7D'v7r©B«3g'07s 77'VhT 
©ISte&'O fc*85ffltt7«D 2 ^T*7o 
®7K-JU7^eT>te7D^7is5ixrus-5ffl'e. 
7D'v7ffitt«IS^«IZ^t:7So B^B'O* 
■JJWSCttx »*lr©7Dvy<7ffiWi£]HIIZ 
77^r357a;*«S8(©. 
®7n'y7©Wiiffi*tS8«S*t:izmutN «7 
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ttc® 7K— ;ixo»*S3EOBt*®L/ja& 

nKa&aiv. 

m\(D7nvO(bwm*-D-ft<£\z\^ se^y b c*«e, 

IS) £ttl/Wo C©ESIBx I4t «6ec« 
Stort ^TawQ&tXVe. np&jjtetlTX \5# 
3BArtVs»«o\u*.jr 0 sebi~4\ «bi~b 
© stMiz^Ox mwizyo^omm^t^ c© 
kuizb^t i tfA^gz 
z(D7a77U3.7K-ii(D®^tpmzmm7?) 
v-p&ay Cv 7K-)UDffi*«wxx Y©e^a 
ir^ Xv Y-cs^ezB^D'v^^s*^© 
tffcSB&raCBx ■3BG»»«et\SE^. 

B( Y-3 , INT( ( X-16 )/6 ) 

x, YffliSBv 7oyc%a^uri,\siHWc 

BWlB&jt&'eg'b 0£9x X |J22~57 n YB4 
~7 ©B«©<srtfn\ ^©afbizMiSUTx is 
g©i^(«E)Bi~4 N 2sg©i#(«i)iai~6 
©cfn^iz^io^^o ®ti©ex, Y^zffi^^iz 
tfcSfetlKx EB©ffiBffi7D'V<7©^»^§glZ 
fy^-cs^g-o 

«Wttl*ia3BO^ 

B«S9S©W^S*35B^yh©iie£: 

isii;izu*g"o ^nBS2©27>©/*9— >iz&<9 

S<To 


A^-V® HU 2 

7D'y<7 1 fieircB^maB 2 © 2 z>©/ w- 
>z'+s-rg7, &®.(D7a"j / Jtfrd£>hj7%\z>£ 

SI 3 © 2 Z)ffi7-7r^T*^Uc>:-5o 




4r-X® C<7)7a-y^A«-gx2, 



C©2 7©7-XCBs JM/C3l»7K-;i/©)50 
B*-3C<Hirw 0 U7u ^(»£&(d7\3"jo 
©wfiiz^oT, 7n"joomxmmrj'o&v 0 
7 U"jo dBx 7-7®ris>ix^-e/u7v 7-7 
©"CB7-7® ©BStHI W5lS#5©7KH UZ^ 
^•cmTi/Si^.go ^ : u-ca»ao\(tv tk 
-)WM)%v7nv'y(Dmz7jtf*mmzrjio ^g Q 
B3©'2:XD7— )**IEL<27/t— tfSEBx. B 
ttSOfflfflZau-Cx SI 2 ©/ V9—y®ft! w-> 
©ffl^Y^fflBfijgOCBJtg-S^IZRSmiB 
oKrg-o 


7SIZSI 4 ©7-7^^^r^^g-o 



S4ffi7D'V7AA©7K-;L/©^>9BISs S3 
©7-7©<ZI3i;'Cg-o eflSv A©7Dw7tf^ 
U7U 7K-JUDB*J3fi9£BHI 3 ©7- 
7®ffl<fce>IZBB‘0^^o C©7D'V77IWSIZ 
«5©r, wuT^Rfc©tni;BPiizB«js*aB- 

ftBB'OSm/uo 

a 4 ffl<£7&7-7£7/ !-g-*CBx 7D'V7 
■CBfijB^eaBdx ^:©B«jgo^7K-JI/ffl3i^B 

%'Ottiv o gy©7D'v77®ni^ -&©7tx-j[>^ 
s&izis«®u^g-o zffltSx 2S§iz^£o£ 
7Ov7B-€0***wu-ca5**g-o 2se©7 
□\y7t>£iUT:i^7<hv 1 00Bn»O'C7Qvy 
7 2 ttfflKIZjB*TU*l/.\*?-o 
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7oyymzm7^>77ii-7y\m 5©£o 

Ea^Stfo 

RfiSOfflSttx 7-)UDmn75\S\C7a"j77 
SUtSI^®iWo -?:ZT\ Y + Y 1 fflfi CD 
#IZ7K-Jl/*a^^Sfil«© YffiSO tf 3 ~ 7 ffl« 

u^ 0 

7a'v9TCDIS«3I‘0«. 

1 0 < 7-)l7±J575Mlv'C&l5.'0T7575Mh)V 
UtfU IUS®^«)(DY®^(Dfit 
UT Y + Y 1 fc^Bt^TSfcSJMt^'CSjt 

susMHaas'osii/u. 

fclA, 



C x * K ) 


■hi 5 ya v ?x-(nitft.&i)%im<n-y-7>\'-i-> 



mm m 


mti&7n"j77m?LttUizMxzi^£7o 
7avom2k£.mtimmm i;W 5X7 s©t\ 
imm^mmcD77ii-7y(D^vm^(Dmm^ 
<o$7o ±.75®7av7*m\ 

T?s 7D'V9¥yS£5IJB (it, ft) IZOttZ'Vh? 

st* N it c i sg®i#) ®n«3cc»a*itii 

7CK75k«3S3tlyi«5ttx *2>CO«ffl<J:-5a 

^^astsur, &vmy[,\ / 7-/J7P7 s 7L\zisX 

*r<s<*u 

®*C7b-('W)A®»Ji!l€*S^*ffl'Ca<N 

©7K-JU2OT‘y7**S<tfl^ ±23®ir 
ttraBS^-SCa^Ct*. 77yh ©*£<* 
fcSUlfflE/J'iSCtfS* 

<m77-iuD^, &*>7[yto7y*v-7m 

@7n'v(7ffltKX^'<*<UT$£ia^ 0 


■ 3£» M * h 

X 


Y 

7i\-iL/SgHu«®aiSffiai 

XI 

7t\ — )\jtJ 1 D^?«iW-*tS(DzKspBlSKZ®b« 

Y 1 

7t \-Jbtf 1 DVSira-SiSODSBElqlfflSftM 

V 

5<7'VS®^*©7X¥®« 

VI 

^7'VhXf 1 □^«iS^Si;Sffl7j(¥e[ql®Sl« 

ww 

^e-KMBfflE®® FOR~NEXT^0 Uffl OK 

B(4, 6) 

7D'V9ffl^®^^E5U 

BL 

R^UTUS^U'v^fflK 

C 

tK-JL®» 

s 



51 



52 


— popcorn — 

ft 9 

- t'K 


popcoMWifflettx is<Mh(mm(D 

#5x 70S<C5^^rTM75SUr^o 
ZfflftUtfBtfSix l\ftffl/J\ 

^£ff35££i;:«3Z3ISx fc^x =J>ezL-5?IZ 
S-tnss^Attx at9t>©£<&3£Sx<S 
t\w. 

t55Ajx ^fflCSISx BASIGfe&S^BB'Cx 
i\5^S3W^*fi/ujK9u&<Tfcx £nr 
=fex #/uc/uCx /tvs^tiwrcescfc-scfea 
3rU<£3o 

C7-x>A;i/7tfS^EDfflJ*£fi§KU 
ttttfCotfttiJ&oTx #BCD3t^'CS®^ , ‘0 
SL£„ 

S?£9§©ISi;®fflZ3ISx X?£Kto&UAtN 
CCS/ullftUeffx ffM^x Ax UMA £ 
/u<tf/ux 'ftjtacuc^rx tncttnuTx ft 
SS®tK <hj<h>s ftAuCa*9*l^Co £SRC^ 
a«x M-i^tv^ffiffl'osuodinsa^siS; 

Z©*S-5ailfc£f»ot»E»Z-tx ^"CISx a* 
•Sx ^3lSA;©-CSS©AISx Bt/uCx ivft< 
a^x JMt©Xii^70Ke*ue!o 

a£©Affi£®Atfx frM^x A®s¥CiB9te 
jBisanffltnftCx □>trn-'9C)0UT: i fex « 
oC<x;PWl/^^tf8<at>££*xffli&‘Cx 
^lA\£9Kf®3**tfo 
^©t©c Bx s^tnt^Ex □>^zl- 5' 
fflASlfctfx ZoLiaim 
u»u zfflsoaizttx n<z>t>®Asdiitf 


115)3^^11^^0 

#S©fcfflJ&5»-3T&ftU*'3o /TVD> • V 

7hffl5&&££=fcx 

ii/u^ftaizfcxV^h^sizs^st^njix 
'&fflfus»5ti^r , fex is 

$fec:3x 7'f'9DV7httfl , x MSX BASICtU 

•3fc®*«u 

USOo 

Z3®3i!)£IZ*fU-Cx JtmuWMMMC, 
tu^ztiSx a*x Sti£ft®*tft©$Tm>n3 
''tefcffl'CaCCx J I S (BAIft 

ft«) &<a feotizitia^fflftftfflcp-cfj^ns 
AS^tUxSItN nmz&i0tt o 
BA©/ WD> • 5/AxZjtx 7>*U&©*Jrte 
iSx »«‘on«o'G/Wo s£*03wa©» 
£x c P/M^ISUtoo S C^Ab-x-rlA? ■ 5 / 
7TL>) ££A£brU3t>©tfx Bfc/u£TC»i 

©C8t/Cx BAISx r BASICj 5/AX^^SACL 
TU3=t5ffltf£2rrCAo 

ZniSx BA®/ WH>SSfflJS£ffl&£aCc£-5 
feor^x msx^x b A rsis Ansriwu 

©fex ZA;«tZ3IZMS^®'0-?:x'CAo 

ss^msasnx iwicucfcx &£$a*iz 

t^riSx Sftft^©v^h©4MttiSx fcxtt 

asKactzars-. 

MiZx M^LS-tra**®/ \-^©s^i>xiS3 
ASfemsc-eAx msx®Mi4cis®« 

«U6L\tBlOT.nB$C J l Sft«fflA-3aC 

t^»aciroawwisc*a(^ti/><S:ft^*^oH 


V .... - J 
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BASICttt 

ffiJA '9 


BASIC 

km^izmm^Ti^o * * ** urwa9JWJ^*£tt 
%m,\ guivy-kWor^-eWo 


198X3MIE, *>S±B*tf>*H*o *M.tkhk-tfti 


*>r> S- Jt-c 4'*'* bBLti'io 

3$g£U J fr / K5<fcO% ; €>flD? 

** 5BSAa BASIC -DT£/u&BB«ffl? 

*n iois»nifcisfc^e$o M#«u 
SAuStf-^fcf^TUSU ^CJO-yCOVB/u 
£3? 

** -5-3^ BASictf£/u8fc©rtH05«<T 
’b'f-umnzcD&o a(D^tm*nz>(Dft, 
Xj^/u#5o£€J058<fe-3'C^3 : ©3*0 
T©335e707^Sr£TU3offlo 
*S? -3— too -toUxH^MlS r 3?g&to;tt5 
3 t feOTS&l/ Nj&toTl, OTl 5s J>*'Jtl 

>jtfKC3Rst*5Wu<bBiy'csifa. amtni; 

«* ?L*s 35BfflXasH:Bt/uer>»5J8tvb. 


TU3o© 0 a&E«tr*Ctt85i&S«a5*». 

*H BASICS *B«8S''!fc£ tiTTXXr? 

«-3i5£ 0 utfuasH 
«©cfc^«7n^5>^©SAc«se©c«, 
BASICtlSMtfs 

*>(,\#to*a„ o^"M\y 0 
** BASIC.CB*»»»jtf8l,\J&5x 
tfo<x BAsic<DJMgfc5*f5U 7acryh 

*n 33m, 9 mmnB&fEz>im&. ws> s 
jgcaorstfnd isms«8t»fflcfp5rus 

SSfflFORTRANiSA/^fSN *ft— 

*3©IZfco 
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ft* «®SyiZ£<&/Ti®3BASIClZ»SL£B 
ASIC ffl7.x-h^>h' CSO £»<. tTuSfe© 

tf&zom^o *ne, ivmmcD^-h-* 
|/Kre/o«:a^£fr«®©»Ufesi; 
ft#! fPSTOfe©#^ *$G9izis, 

let <mm = <^> 
inisttA^r, LETO^Bgrssteo 

INPUT "□^•>h" ; <S$> 

IS, S*ffl«€%-3K-H»&Ajl*liS<l^ 

TV'zbOh-" issK'Cfcuusv 

GOTO <fj*§> 

IS, 'lB3S«r?e<5»SC : 2?^>79-S«^. 

GOSUB <It*§> 

fc, 

t*v RETURN;£IZtb£3<b, GOSUB3^®T5^ 

ffl£Z3'\fe£-D'C<-5/’u£ 0 +T7iL-T 1 >^ 

nputwurataa. 

FOR TO *§IB STEPlt^ 

• is, <osu^a NExf££«*ftrm 
-cmz>hjiz it<l\ sBMCJi^tJgLy-ap-c, 

*§IB<T‘0A^<&3S:'C, FOR~ NEXT "CIS 
z&ntzBfi^v'mhjiz o 
IF <SC> THEN <®s> 

IS, SW^JKSTC, sC©*2«ST>ie5«nra 

o 

PRINT <S$t> 

is, hb^xr, raa<az£«©®W3!5»t 

ft* PRINT oTLAoZtlS^-TA^STrT)^ 
IZ, ?v’-‘7«ttT>T>fcl\l,Vi/CU*:. 
ft#! & ^SfflttSifflSd, 

REM «3W> 

is, aiRXr, 7D^^®^IZ, Zl*>h€ 

S^T®<tSIZffi-5^o REM£ffl&3IZ 

•ivcssxssuis, yo *r5L&mjtt£. 

&{z\m£n?f\zm%iisn?>ivizo 
ft* REMoT, remark oT5SS}#'S^T3/’u 
rUcTo znt. > ^-<7rftfflT*£3®<£*3o 
*#! 3®cZ35 l 0o.T, WOfcBte, 


END 

IS, B 

ASICTIS, TOC^jffii&T^ 

f sk&i\<b#izffi*3/u£ 0 ynyyi^om. 

»IZ END £#<!l^lS&l^£IT£o 
STOP 

is, yuyyL±(Dm^m'T:*?tbT, zyy 

DIM <l#OS»> 

is, wsmm.(D^3\(Dy.^^msy^hiZo 

ft* DIMt>t:©- 5©IS, dimension -oXlAoSSS 
y<b^1Z(Dn o 

ft#! S;<5B^r3« 0 IStfIZ, *$$)«=&©££, 
READ <Mm 

IS, DATA £IZgTJTTe?-5^$IZ§^<I 

z)*d, 

DATA )£«, JQR, 

iz*tmtu5JE«£ read ££<£- 01 ;, & 

mzm^z^y^mis.o 


BASIC*^ 

ft ft 

id $ 

LET 


INPUT 

*-#- Virh?-* £A*r £ 

GOTO 

}§S?hfclTf# Lvv>TT5 

GOSUB- 

RETURN 

i: GOSUBOT-d L ^-5 

FOR- 

NEXT 

FOR £ NEXT T'li ? J 

<t O T < IJ ST 

IF THEN 

*fti:*nt*litT5 

PRINT 

IffiCST'PTT^iSTS 

REM 

*^7Ai:, 

^d^acd## fcttftMl* 

END 

* □ * 7 A <75 Jg Tf £ H 7 $ * 5 

STOP 

*P*7AOTHfi-?r^it$-l±5 

DIM 

EJIJLASSftWflSftfcj**)* 

READ- 

DATA 

DATATt<75lStfifi • 3C^£f3Si; 

CLS 


LOCATE 

H®-L(75 * — V JKD’fiB^rig^T 5 

COLOR 

Ba<7>fe£}g^-f * 

PSET 

L fcte«c: K-y F $-*< 

PRESET 

*g£ Lfc1£«<7) F‘-y F £>8* 
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auTt\s©Sv 

CLS 

LOCATE <Xffi«>, <Y» 

T\ nS±ffifl-VJWDfl»«^?3©<fcx 

COLOR 

Tv &£^©£©tx 

PSET <xmW>, <Yffi*D. <77-> 

T\ 

preset <xmm>, <ymm> 

T\ ^©<uBfflK7h£^Z£<5(A»£o 
fi* -?:-5fio IIffiK'VhMt.x 77— IqlS# 
tx «sc£oTx . 

gggSQ BASIC! 

** tcisr BASIC t>TI\77[II775>78 

fin BASIC BSESCCttx Beginner's All-pur- 
pose Symbolic Instruction CodefflZfCx 
20£B<3»Cx P^UZJTHBB*n)6/uff. 

** ^*<c:i;*3»eiESCSiwa. 

fin SSKx Slffita^lx BASIC 

a7CK754>BB«/uttiao 

** ^#Sffitfllffl©BSffl FORTRAN Uhjp 

^•ciSx araomswivui^au? 

fin Qo BASIC IJx FORTRAN IZtt/Xtx 

xatfSB)jtf > ?>*iAVu£o basic CB fort 

RAN ©ck"5C.x ®.&13Wmtts sws!tf€» 
CU«<Tte«*3U Atu^ffltstx £7 
u \7Bsrc AU^^s©»«ftc 

£<£o 

fin BASIC ?tx DEF INT S:c^©^eBXTx 
PRINT USING 

3TCx a#)ffiB3fc&jer£3<£7IZ^T(A3 

/uCU£7?. 

fin *3E© BASIC B-CBSW^x «L\7Jtll g 
^l^:U-^5:<'C=fe^^^D^j:UN c ^:^iz: basic IST^ 
Z2>fv£ 0 aCLSKTiMWSx 



Piws, 

«* BASIC Bx WO^tAWCGKx ffilA 
WOVi/Ct/c*? 

fin ^C-fCo BASIC ©ffit^tffettx 09 
-7'j9-mmv&&tiiz&zhjizo 9Bsrs 
U££7IZx FORTRAN «£©□>; W7- 

asiSx »smiz«(/>»o*3Cx m?mzx7 

^WZftUTx -<>'9-7U7-S^tx 17 
-tfttiScLUff^ltUTx 17-©a$ti:tii£ 
»M£RmuT<n3o ^zr^<c7D77^ 
€HiE^T:jt5ttftC«bJrMISAu»?dt. 
fi* Z£slW7-wmtZ£, 7l\"J7\^P'0\Z< 
LAW? 

fin ASfflD>tfa-7^cLgiJIZ^‘0C<LA^t 

tt&©-?:7£7£o /TVDZ'-Cx FORTRAN 
^bigx *3\ I5V7-£iEl!)£ircy- 

U-^BBLAffiUTx =)>/K7-£EiS&tA 
□>/W;LUrx 7T77x7h • 75?-T;U^BJc 
U OtfCD>/W7-«Bl,MtiL/Cx u>7- 
7 • □-7-£i£U)£7x U77UTx ?>ctx 

fi* M£7WZULMT<!fx I7-tftti£Sx & 
6It Y 7 -©g|lg7S<gIE UTL W«b*U#a 
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*#i x/vaas. tyn'otbh)£r> 

rjhjlSo 

ft* /vp>eis»*9i9tYu\aiy 

ft#! ^IzUo FORTRAN IS BASIC IZtfcAT. 
^fU-$iS<6«5t^U x-rA^ • K 
5<7tea(/\tBs/u*fo ‘f’Wsssset 
®A3« 0 

ft* basic is#ee#B. ^-ripp/ettons 

ck-5c&x£m«. 

*1? *© ta5<0o ^-l"7D • □>eTL-5?CDX¥ 

#. i \s®£-5&7 tv □> u^a-cx^i/TK-K- ■ 

CPU tSM/WhO^t 

u-ti6jtdF-7K-hi<?5iwcr^-a\Bt. 
C DIz^IzZZ . BASIC «S5Cli»KbCx T 
iny BASIC tf. A JMflBoJS/uflSo WC. v'-f' 
□>#. g/uitS/ufHM-Se^JSff^T. Tiny 

basic T? a<, nzafenestaa basic tfiii 

ft* «l^BSt^f»-3»D05lo 
ft#! Sffiffl BASIC CIS. c*o££l;f£SAa9& 
Ax-hA>hffllStfC. *S£*«attJ8db* 
^ficorsio 

$m<D7\ ud=?L 

ft* #$05«Ax-SA>h^®x-Cs flj£Hfll\ 

yar?L*tP?T: <n«u? 


ft#! BSxtffxTToCUSB'CU'O 

ft* £x£d5lS£SA$i^C«;tto£ffllS9 
ft#! 1 0fxCD RANDOMIZE IS. 

2>titf5tthj1zfc o 30*3® WIDTH IS. 1 OfflX? 
1 BiSfflf^«S^3i*>^a/uit£o 7001* 
INKEY $£l,V3WRfc. &3Xs&tSt: 
£. :*— 14OO0INT 

oTMRIS. §Wffl«*Z*ai\**ffla**aB 
lzx.Z>/v1z o ^^raUOffl. RND IS 0 A 1 ®HI 

oas^fPSiKm 
ft* ®AIS^A;«aA0g«a^^lS«o 
ftH CfflZWxAIS. -C«®^AT7?BT)^± 
tfxT<34^-?£AIS&tfB!iit3C*-^«A 
^isn^5visi2oor.fflii®iiT©iz print 
^ztr. «Kfifj»±c^n* CA9D- 
jw ®wmi'T\,\&hj£o iAitfa?®c=fe<- 
Bin>\<-i / A-2?tfffiT3£39 
ft* ISAjAo Stt©*ffl3fcl/C<fc. 
ft#! X-IS. HSffl®±©IZ®3i7ici®X«. 

mx is. ;iSlfcjf5g«ue. 5-y--f';uz>xffi«. 

MY IS. S+M^l/fflYffll. Ml IS. HSC5+7 
-o\,m sx-c3tsisir. sixrat/Ntsiso 
Cas£#«£<fc. 

ft* ®AIS. T7D-5 1J P-h^MniS^»3xT 

Wtto 

ft#! 33U3^OT75Za£#il&IZlAt. A 
£Qy-LiffV&Z>hjie, 



10 RANDOMIZE (TIME) 

20 X=40 

30 WIDTH 80,25 

40 IF MY >23 THEN LOCATE MX, 23: PRINT” ”;:MI=0 
50 IF MI=0 THEN 70 

60 LOCATE MX , MY— 1 : PRINT” ”;: MY=MY+1 : LOCATE MX , MY: C0L0R6: PRINT ”#” ; 
70 K*= INKEY* 

80 IF K*=”l” AND X >2 THEN LOCATE X + 1,0: PRINT” ”5:X = X-1 
90 IF K*=”2” AND MI=0 THEN MI=1 : MX=X: MY=1 

100 IF K*=”3” AND X<77 THEN LOCATE X-1,0: PRINT” ”;:X=X+1 
110 LOCATE X-1,0: C0L0R4: PRINT”B=*" ; 

120 LOCATEO, 24: PRINT 
130 FOR 1=1 TO 3 
140 J=INT(RND(1) *79) 

150 LOCATE J , 24 

1 160 COLOR 1 : PR I NT ” ♦ ” ; 

170 NEXT 
180 SOTO 40 
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•yn-^v-h 



u<ur*r^ 0 

^TJOtUTo 

(U«5<^^-C) 

sn qj& mez>^\9 


fig S$ffllZIJ5 o?ffl7D^Lc!;i DSlf 
«o &^ffl, 10Otf80O, 200 — *2100^300 
-— *2200, 400 — *2800, 500 — *29017, 600 
— *3000, 70 — 1200 — *410 — 4600, 130 — 170 
O — *590—6300, 1800 — *6600, OftffiUTU 
2>©j£fOtfo£#«: o 

iZ\-hj 0 £Z5~C, Co$©g-5&, «UV® 

*1? */u#C$<0m\<i:o FM-7 , SCK38 
©IS, 110 — 130O£, 6800© SYMBOL 
MStt& ZXV^&13S5Tr7'jyV'ttM£o 
320, 330, 4800© GET @O01'5©I^H®-t©^r 
V^O^-^M^ZtSaS^C, 340—3500^,490 
~52oor,cr5^e:s^or&ffi«^n£ : &£iz, 
♦^?- : 777^O77$IML,Xl^^o570O^^+ 

Eui$09ob^a 

«* iz>o *wsatffl«jD-3-C/\ntf, ajt» 

^gCJiSDT, EUIU® 

ctar^sffifio 
iH «S/u& 

££ ^n7fi/to£t35'C, -5*— ^i«»UCC 

*1? £-U £-01513 HI-SCORE £<75/7, M# 
Ufc-3o E3 -f0^h/£S«JSS 

*ae:4i»4-*^7 , aA<7)9t#*'ib<7)^lftS:^o 
tl'ito 1fatULT*(fT</f#V,'„(«|ISPJ:iJ) 
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) 50s NEXT! LOCATE MX,) 


' AND X >2 THEN LOCATE X + l , 0: PRINT" " 
' AND MI=0 THEN MI=1 : MX=X s MY=1 
' AND X<77 THEN LOCATE X-1,0: PRINT" 
1,0: C0L0R6 : PR I NT " ■=■" ; 


s X— X— 1 


X = X + 1 


200 T I ME*= " 00 s 00; 00 " s S=0 : SU=3 : MS=0 

210 X=40 

220 WIDTH 80,25 

230 TS=VAL (LEFT* (TIMES, 2) ) *3600+VAL (MID* (TIME*, 4, 2) ) *60+VAL (RIGHT* (TIME*, 2) ) 
240 S=TS+MS 

250 L0CATE0,0: COLORS: PRINT "SCORE=";S; 

260 L0CATE67 , O : COLORS SPRINT" SUBMAR I NE= " ; SU 

280 IF MY >23 THEN LOCATE MX,23:PRINT" ";:MI=0 
290 IF MI=0 THEN 410 

300 LOCATE MX , MY-1 : PRINT" ";: MY=MY+1 : LOCATE MX , MY: C0L0R4: PRINT"*" ; 

310 D=0 

320 GET3(MX,MY+1>— (MX+1,MY+1> ,P 
330 GET3(MX,MY+2)-<MX+l,MY+2> ,Q 
340 IF (P(0) AND -256) =-5632 THEN D=1 

350 IF (0(0) AND -256) =-5632 THEN D=2 

360 IF D< >1 AND D<>2 THEN 410 

370 S0SUB840: LOCATE MX , MY+D: C0L0R2: PRINT"©" » : FOR 1 
RINT" 

380 LOCATE MX, MY: PRINT" "5:MI=0:MY=1 
390 MS=MS+20 
400 ’ •mmmmmmmmmcyy. <1rj 
410 K*=INKEY* 

420 IF K*=' 

430 IF K*=' 

440 IF K*=' 

450 LOCATE X-l 
460 LOCATEO, 24 SPRINT 

480 GET® (X— 1 , Y> — -(X+l , Y) ,P 
490 PA=P (0) AND -256 
500 PB=P (0) AND 255 
510 PC=P(1) AND -256 

520 IF P AO-5632 AND PB0234 AND PC< >-5632 THEN 570 
530 G0SUB780 

540 LOCATE X— 1 , O: C0L0R2 : PR I NT " XXX" ; : FOR 1=1 TO 50:NEXT 
550 SU=SU- 1 : M I =0 : M Y= 1 
560 IF SU<1 THEN 680 ELSE 210 
570 IF PB=235 THEN MS=MS+100*L: G0SUB900 

580 ’ ■■■■■■■■■ 11/3 OH" ") 

590 FOR 1=1 TO L 
600 J=INT (RND ( 1 > #79) 

610 LOCATE J , 24 
620 COLOR 1 SPRINT"*"; 

630 NEXT 

640 IF RND ( 1 ) >. 2 THEN 230 

650 LOCATE INT (RND ( 1 ) *79) , 24: COLOR 3:PRINT"*"; 

660 GOTO 230 

680 SYMBOL < 100,80) , "GAME OVER" , 5, 3, 4, 0 
690 C0L0R7 

700 IF S>HS THEN HS=S: L0CATE20, 15: INPUT"GI VE ME YOUR NAME! 

710 L0CATE20, 16: PRINT” YOUR SCORE=";S 
720 LOCATE 20, 17: PRINT" HI SC0RE="5HS;" by ";N*; 

730 LOCATE 20, 18: PR I NT" DO YOU WANT TO PLAY AGAIN?"; 

740 K*= INKEY* 

750 IF KS="N" THEN END 

760 IF KS< >" " THEN WIDTH40, 20: GOTO 140 
770 GOTO 740 
780 ’ 

790 BEEP 1 
800 FOR 1=1 
810 NEXT I 
820 BEEPO 
830 RETURN 
840 ’ 

850 BEEP1 
860 FOR 1=1 TO 5 
870 NEXT I 
880 BEEPO 
890 RETURN 


930 NEXT I 
940 BEEPO 
950 RETURN 
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ISU&IZ 

□>td , 3.-'9^a5©7 i -'9^s fttttmAmizr) 

s^g-siAstuaiAtui/V JS 
&iz©>eii-9;tfx-5>£ffi9zt5£©fflis£ 
wzc/ffligffla* ^f-tk- 

KtC R TtZ5'-^»$ffl«Atij^i#'C^o 

^-^©Amsfflos, tascBi^-cBx crt 
B®±:C;£¥£S;^ 375&ffllgS8£^rCf7U3: 

*ZT?#00\ j-^A^fflm 'D&'Ol r 
-7K-K#5x^£R*£CE«£^?-5ff<!:l,\ 
occfcetMito-a^*^ 
znia^-zi^A^crassneiKo#©^ 
^l-^^CALL^SCmo -ei/Tv zn 
IZ<£*D BASIC© I NPUTXf) I N KEY $ Hf $ 

t(3i u^e>«z 

0F7 5SJfi«CALL 

0 F 7 5gitS£CALLL/C©3:lx 
<j:-5o -tncau si i 

-izmgzhjTme>ttza>&y 0 z©of75S 

#Sffltl-AJD-A>H, nfr^nsts bas i c© i 


NPUT^<ZlqlUct'5IZv *-7K-Ktf&£n£3:-C 

mmu 

Jpo/jL'-?- (AL/~U5>-) IZAnr^-fX/ 
tmUZ&ii'Qttt . ^ZT^a^^ISs ^ffl 
0 2 5 7Stffi©S/3+tA;U-5 1 >IZ^L^ 
^■o tivszttt, rr^^dp-©5t¥^©SSB 
scsinsttN-s^tc^^o 

Zffl-*t7Jly-^>ISs BAS I C© I NPU 
TXitf&tflV* ^U-9- OWWSSiMES) 
Cx-^A^^tf^StoCPES^ £F»g£C7 
□>7h® fesa 

hs 2^V;Ufc»SSn*1±/uo ®<^-C-fev dp- 
7K-^#£) 1 £?HRxr<3£ttT‘g- 0 U£/tfors 
z©-9-A;L-^>^®xn NPUTXtnu^ia 

*ncoi\Tttse»£‘CK«iyS9' 0 
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D 000 


D 001 
D 002 
D003 
D 004 
D 005 
D006 
D 007 
D 008 

znyncr^Li&^'j-izm&zivT, g=p?> 
K 

*GD 0 0 0 (RETURN) 

£A ^-\ti^y^yzmmzi5.i5.^iy 
tS-5o mmazz-cz—omttvmm&yz-D’b 
'0&&-o1z<Zo'03y±hjti, PC©dr-7K-KCIJv 
Ije-h#«g C*-£OO^T* : fc$UTU5<!^ ^ 

4 b v CSIIUR®^-?«<»STTl)5t^- 
AtiJU-^rcintf^z^fL 

ganT? 0 

ST, *-A2OT9“^'Cv BAS I Cffi I N P 

UT^i^U^IZ^S: OTXTVSO «uu 
iSttttli* ^-AftJU-^fflSuIZR^JU-f 1 ;^ 
cal urntf d^ru^o *ntf®2r<r<, i~ 
7(j@ZflB®tUZ]©t«)ffldb^rx DO 2 1SJ8 
~D 0 2 OfilZSSX??-^ C-tfflStMCIBL 
3 c mm.tfftz') ^mmzwf'V-yii-j-yc.iois. 

ZfllZ<£9x DATA=ta®C^^n^ 
ntSs Z©£c>&< l O5£UZK!l^C0L U**TE 
se##ffliiu*L£*o zuTs ztDSZoyiZn. 
-^IS^-At)^S©«^CA 1 0^^o 
zzv, z(D£g*-tte>$:^ffl5zmnz>£, 
Xmiit&ZX&o—PXf D o 5 omxSMMZVg 
tyn&ftf* •tfaaaursuiNffliSv isfjsiz® 

SCPdptWo Zffl^&tfcl&npTailLAoTZ A 

L/y^9- tgyfflx-^9 


JP 5C66H 

mm i 


S1±to*o rfevCfflob^CB^fC^^nSZi: 
IZLTZ t)^ffltZ3liM 5 b®fl‘o^^ > 5IZ7— 'V 
£ftlZ*2>3:l><i:^ 0 Ab5U5>- 

fflrtgcZlSjtfflO D (ZWSRETURN^— ©□— 

K) «1/<8j&-3JS5JP NZWCD 0 

i i sffifflL 2 izaka mu-m & jp nz$^© 

y^cD^[z^<zmmyT<t£^\ 0 t\,\7Z£ 

0L &&ni5.%—1} RETURN r&ITniA MgT 

to f 7 5 mm®ii;-yytfmmn : 5Z<t.'eyyo 
yiztf-oXs Z(D7ayyu^ return^-# 
w&nz>&vmmy7%&&m}>zfr&7o z>m<o 

Ztllt, BASIC© 

INPUT "DAT A = " ; X 

ttvjjfetfWo 


JSJ&EH 2 ©^D^^riSdp-Atl^Sfflt^s 

zzv, 4m*t3-'j)i'&m& 

nzat&to ^wzbl 

CALL 0 2 5 7 H 

t&zzzz&yyT ctuoTt 2 timzym 

CALL 5FB0H 

IZ»S2tftStfo AtU-iriSv 0 3 ©c^olZ 4 

Z)ilr*§Suc<tf*ls. 

£77713 a znvij-y z>&7iz® 
-z>1zTy&7o 5 F B 0#»»5©it7)ly-f'>B> 
7^3±>U— 9-fflP9§£iii®IZS^bT\ Z3-V 
Jl/EO^IZH&^SV, 


■ 12 

LD HL.L3 
LD B,5 

LI: LD A, (HL) 

CALL 0257H 
INC HL 
DEC B 
JP NZ.Ll 
LD HL.0D050H 
L2: CALL 0F75H 

CALL 0257H 
LD (HL) , A 
INC HL 
CP 0DH 
JP NZ.L2 
JP 5C66H 
L3: DB 44H 

DB 41H 
DB 54H 
DB 41H 
DB 3DH 


D003 0605 
D005 7E 
D006 CD5702 
D009 23 
D00A 05 
D00B C205D0 
D00E 2150D0 
D011 CD750F 
D014 CD5702 
D017 77 
D018 23 
D019 FE0D 
D01B C211D0 
D01E C3665C 
D021 44 
D022 41 
D023 54 
D024 41 
D025 3D 


DO 0 0 


DO 0 7 
DO 0 8 


DO I 5 
DO I 6 


D 0 5 OSHSUStL 
BE* - $ tlfzSC^ 
- K*«A4 


CP DP^ 

mS. CCT'CP^CO( / \ri«BJLi:35S^L 
£-5o z©©^is. iuizfcu^£<£z>iztt;f^n 
-MtM* 
cp d 

t»i\Tx j’l-D.is-y-ocpmt d (DBftvmm 
zzng 

JfcTBSffittx r\ rixCHLX (l X + dX 

c i Y + d) ©utfrwrw. 

*ZV, 5 ?rm Zffl r I 3 L^ 7 .' 9— ©<3 
<znr#5. m^ffliziSA^SL^rroirn^rg-o 
£#e>. ct^ta- 

CP B 

#5. Ab^-9- (P^a/LiU—9-) £BU2/* • 

*i/c 

is*tisz75(?tf iiz&s (zz^/tfuzo ©■ c 

^o l/Stf-DTx ZfflZ)glZ*<ifr^£ 

J P Z, nn 

£**ltfx »U,\ CZT^SSfttoC) Z^nnS 
tteiz^v^u^^o zntsastiZx #o<m\(z 

T^ r yii^LT5J3\ J \ Z>^ l 9NZ) 


JP NZ, nn 
ZL^^o 

Uffitfc&nj-tf . dni'/t. 

?i'h©«fin«jB3e^nax 
CP n 

n znaj>^zLLiy~^-^mmm.m n tuAs 

Vo Zffln^ODHZU^©^ B 2 n^WGA 
£CP^W, 

dffl®#n (HL) s (l X + d) .(I Y + d) £ 
}gS<r-5Z. 3^aZ>b-5>-Z:7. ; EU-_tfflx- 

CP (HL) 

nS. H LUy^-ffl&UTlASSlffiffl^U- 

^ttifflsas^o ztZs 

CP (l X + d) 

CP ( I Y + d) 

ns. 1 x^£is i y © ft 

§iz?siidZfao»$n. ^©fitfilbiita^taa 
^fu-ffifte^af^fflr^o b 4 izzns© 

C P*^ffi75/>i^^LS?. 

C Ptfl^lZ^o-CIBi^SISSZ^^SflJfflTj- 

sz<zn z»tf«u\»5#«3iwrce*zta 
t);&0*Ufe;{fx *nT!BeS5XW:*L\»«0S 
eis£^nis<£iA©nbs:-5#o 

7c3fcC PfiFglS. StfflfflSUB®^ GISIMrfc) 
cZ$Mffiiiz(Bi un y^uu-^-n^ d ng® 
*n*5*-9tf§i«»*n*g-zfx s u Btstfo 
rs^iszizizfe^^ nst+zuoS^. -?=?jmi3 
«*izisL;r»ws«rw. *zn. §ihjs» 
stf-ea^sa os^^usws). z 7^?#n 
^tt\-5ffltft\**-c©Bnuetfx z©is»iz*g 



d 

r 

n 

(H L) 

(IX+d) 

(lY+d) 

A 

B 

C 

D 

E 

H 

L 

CP A , d 

B F 

B 8 

B 9 

B A 

B B 

B C 

B D 

F E 

n 

B E 

D D 

B E 
d 

F D 

B E 
d 
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§ltf^^7.©«£lIO©tfS^^-C<r (SSffi 

C0'y^ J 7UtrD(D ISx V^-zlLAs— 9- tdfflx- 
'9®ttAT\ P*aZ J b^-ffl^©l5o#/J'£ 
©a^-c^o 
*zt\ 


7K-JWD»stfrsfi6x 

TSESCWK^EL/raia^i' u#u ^©Suiz 
/u*o ^cr-l® x 

[3 


J P M, n n 

£C P«^ffltt5C«<tx J>^ZLLAy-‘9-Q^ 
#tfdrfg®;*n3$fli£ i 9/j\&© csyyytm 
•yta £&,, n n mmz5?vyyis&-$o 
ZtltEMU 7^=iLLr~9-ayp9MfX&\,\ 
#isua cgiiMTfe^^^ifnrv syyy&i i 
fe&u) 


[3 ™ 

si8##Asic^n^ZjnSv ^-© 
^Z*IZINKEY$£ffllA ±ffl=Sp-tffl&tt3 
j&t/iz* jfc-ju£$sca#uT:©^o 
®r)n"a\5^»©-5^v pistk-ju^b®©^ 

ZCSS^^T-^CXeiq)©^^?) "Cx 


J P P, nn 


-mz^y^-twitn^no piSTtx-jutfsiz 

WKtz i s*ru ?Eca<ts i *ssfuw 0 


ris, $©ttfc}©Ti3zn<5ueuTz ft 


h@©pm^[sp^ o #38 E«o££st\ zn&Lt 


1 3>o C Pop^ffiC PZI3Z7u&jS®f;T ? U30 

»? Sxisz©ie*©ii^r^o 

Hii«— raw 

<*-c 

rffi®£©>hn-JUura^Uc>;^o W€>e>*© 
#d:©ii|v a®©^*i3®57K-iu^v ^-£® 
orsaciOTffl-cg-o ^ET?x 
iWEULx:&S5d:EU*W fKrffl^it)©*-? 
^<7^-13 r sS j s s , rJ j ®4sr^ 0 
^i/c, zns£0 5 ©ezsizS/3©^^o 
RoOTC^IS, BAS ICTfESc^ LOCATE 
&dPRINTX»§l/VC\ 0 6©<£-3IZ£‘9^3o 
zwzftUTs ?s/>s©a^iSs 0 7 ©^oizg 

ir\* : EU— (VRAM) IZLD^mz-K9 
CHs 9 D H v 8 EH V 9FH^*SZ^rg^ 
Z©®ax *£Z^SJffil30 5 EnW£ 

as^r^o 

urns x — * 


Y 12 
I 

13 



r 

A 

V 

j 


10 UIDTH 40,25 
20 PRINT CHR*(12> 

30 LOCATE 19, 11 i PRINT - r 
40 LOCATE 20 ,11 :PRINT '> 
50 LOCATE 19, 12s PRINT ‘ >• 
60 LOCATE 20 , 12:PRINT ■■’ 
70 END 


vz^Wi&mfoo 
®9i3:7 
□-^^-h-r^o 
0 8 tmtisZK 
1zts\,\ o 


in 7 

LD B.40 
LD C.25 
CALL 093AH 
CALL 045AH 
LD IX.0F8C6H 
LD ( IX ) ,9CH 
LD ( IX+2) ,9DH 
LD ( I X+78H ) , 9EH 

LD ( IX+7AH ) ,9FH 
JP 5C66H 


D000 0628 
D002 0E19 
0004 CD3A09 
D007 CD5A04 
O00A DD21C6F8 
D00E DD36009C 
D012 DO36029D 
D016 DD36789E 
D01A DD367A9F 
D01E C3665C 
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vs/ymTum 

0100 ;, z’yymyn? 

^rg- o 18fj@r0 F ACStffi^rCALLL'O/VS 

©& *-Am ryib-yyz, zncttma) o f 

7 5 m*S(DVJJL-zFy(D<£z>®A73®*5(DMmiZ 

asystt/u o znzmuumfi- c£ 

ntf©*-j^sh-avra& ^©ssa-h^p 
+aZil^-9~CAn-GBL/*^£fv «TN0W<*: 
S0:t?D (3UUD— Ktl/MAS^) ssgu^o -& 
ZZ, 19 ~ 22 f 5 @fflfc^J;gilfc*-©«e^ 
mn^yy, *©#*BBAsic©»&<!:ni;-w 0 
t<C, CP^tJP N ZU(^©ttl,\J5EttSE 

*i/c<jk*i\. 

zvyny^LZfc, mms^m^yy-yp 

tca->rt\*^o cnia, 0 8©pt^os<is 

SOTS U'C^’o P T ©fll^lf «< 3 -£> 29 ~ 31 f 3 £ 40 ~ 

42 f 5 Efca@lAC<tf*lV. 

0100:, tf&'OSUffl'C, AfJ— CBSZfct 

s0:s&Mm\£;3»i/c<;s?su jte>i*s 


^©^c&bss, uiz'vh^'t / 'y5 1 ^ 


■mio 



LD 

B,40 

D000 0628 

LD 

C, 25 

D002 0E19 

CALL 

093AH 

D004 CO3A09 

CALL 

045AH 

D007 CD5A04 

LO 

IX.0F8C6H 

D00A DD21C6F8 

LD 

A, 19 

D00E 3E13 

LD 

( PT ) , A 

D010 327BD0 

SEIK03:LD 

(IX),9CH 

D013 DD36009C 

LD 

( IX+2 ) ,9DH 

0017 DD36029D 

LD 

( I X+78H > , 9EH 

D01B DD36789E 

LD 

( IX+7AH) ,9FH 

D01F DD367A9F 

LD 

B.10H 

D023 0610 

TIME1 : LD 

C.0FFH 

D025 0EFF 

TIME2: DEC 

C 

D027 0D 

JP 

NZ.TIME2 

D028 C227O0 

DEC 

B 

D02B 05 

JP 

NZ.TIMEl 

D02C C225D0 

SEIK04:CALL 

0FACH 

D02F CDAC0F 

CP 

02EH 

D032 FE2E 

JP 

Z, SEIKOl 

D034 CA3FD0 

CP 

02CH 

0037 FE2C 

JP 

Z.SEIK02 

0039 CA5DD0 

JP 

SEIK04 

D03C C32FD0 

SEIKOl SLD 

A,(PT) 

D03F 3A7BO0 

CP 

38 

D042 FE26 

JP 

Z.SEIK04 

D044 CA2FD0 

LD 

(IX),20H 

D047 DD360020 

LD 

( IX+78H) , 20H 

D04B DD367820 

LO 

A, (PT) 

D04F 3A7BD0 

INC 


D052 3C 

LD 

(PT) ,A 

D053 327BD0 

INC 

IX 

D056 DD23 

INC 

IX' 

D058 0D23 

JP 

SEIK03 

D05A C313D0 

SEIK02SL0 

A , ( PT ) 

D05D 3A7BD0 

CP 


D060 FE00 

JP 

Z.SEIK04 

0062 CA2FD8 

LO 

( IX+2) ,20H 

D065 OD360220 

LD 

( IX+7AH) ,20H 

D069 DO367A20 

LD 

A, (PT) 

D06D 3A7BD0 

DEC 

A 

D070 3D 

LD 

( PT ) , A 

0071 327BD0 

DEC 

IX 

D074 D02B 

DEC 

IX 

D076 DD2B 

JP 

SEIK03 

D078 C313D0 

PTi DEFS 

1 

D07B 


WD 0 C 

A2j©BfcU*ixj&tf, h® 
mmzmy2>£.z5te'j>u<&yftyft-Dizzy&y 
ft o Tfc, ? 5 />gffl^DC^fc 9 £©£<rAE 
£oT, B®©ililSS^«:x-y©at^'C^«' 
5, tfaS$^A5?-Ur^^l>^^o 
wmz. mmcDmx — cp^&my^mmy 

3 tUo£5l[ftfflCOMPARE©#ffirc^o S3 
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1 ACTAM C300A 



^rVjp S3 . ■•. •: 

I^ss^ ^%pr ■■■ 




|ax^v> CP-20 


Wm737=7-&mm istzmmz&zT-wyn? 

-^©^^□>7P>fflMC i feOT6 
^tzVs n^srct.® 
mz&zmmmmz. Trtammy^yyyyfD 
tM^xiifeusbjs©'Ms- 3 -t<i 8 fru*tf. 




SSSHi^SUt* ^?-Y=l>»5^'t / ^> / \x-5’ 

fiAzMwrw. §i*OT-eu - 7 -f=j>©Rs 

-232CY>?-:?I-;a*95MZ:mvCv ^ 

gizmeg 

fflfira©S»T©xtZ 32 & 53 K&rvC<a/ UU 3 . 
g£«£SS^Xv 7 -t'^>©B 9 /t;i/^csa*® 


ZOfclsb, gW777~(D± 
izamB(DB£m#mtt&&5iz8-3T:i\*Vo z> 
ZVs §W77^-tts 77DXDM<tO(mB% 
vammzi\^mv?o 

| II 

jtK©a*& Tttmimy^yoy 

7^RCD«ffl$^®i^imb/K-hr^ zffli 

y&y 0 

( ~~) 

P0PC0MMm8S£=Fmm77oy777(D 
nv. §wfi77-z&?£7a77L>fc%mmz 
umuito mmaomsmmzrixfWibz-c^o 
&a<oiX'37Wtmtt(D?* $>%<*/v7m®csn 


* 1 1 

# ** 

*7 7*<B!J 



PC-8801 

PC-8801 

iHfoOT- 

X-/VVCP-20 

fflttHfACTAM C300A 


PC-8895 

7'JU(®(*®C0M) 

^iii 

7D7f-f3^? 

. 7Qvtr-f-f^ 



a? 7 y'cn^'f a > t ft 7-7— 
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*»d©S 2 &iza*'cbi:- 5 o © 

( WjS;frte «>5 ~) 

mmm^'oyyz\yoyym^p(D%m'\m 

B*An*g-(tW5C<tBx SBftlSPOPCOMl# 

#W® a^75J|g^&©£1S'C<;g<*(,\j 
957 r OKW„ 7t\-lv-hlS!)£©5/»/ t-« 
IS 300 ^\-©tC 5 C«:- 3 )ri\^^«jCai ) 

sm® r isu, oKrg-j 

957 r ii775-©g»l7-7JUfflffliD^9 
9HS, SS^tlS^o'Cl/Wtej 
Si#® 1SIA 0 KT?7 j 

957 ^ITCIS, i»775-©ffl97^7-Y'V 

7©§S:^^fiS^U^7o CALL, ANSffltZJ9 
7X.7Y'V77®9^7« 0 7$Si!IISANS 

f 17775, *55HISCALLaeue<iK 

*Uj (S 2 ) 

S§#® r lSlA «L^L£j 
957 r /fVZI>^5-&7,N88-BASIC : E— 1^7 
59-5^-;U : E-KCAS^tUi:, "Dc? 
©Z)77K£*J$CA/C<£<*t/\ 0 
TERM "COM : N83XN", F 
RETURNdp— IS, 
Bo'CUTXJtffcCVj 

sen® r 7$i, ^ — r>ijL5us 0 tort,, 
RETURNdp- 7 ff 7 S^^r 7 j 
957 r -tnnS, 35£7l M£SB#«iizj75 


HZffltA 775-©«S77'v7^Tr>U 
^UcT5o ^n7£>, i#775-©READY 
5>7«£@i/avc 

U^5gS^5&r77e>, RETURNdp-£$ 

urcesijl 

<znr, ±2aset-Kffl/TVD>9- 
55-;i/2S79«7n^C<i:IZS:9^7o S 
ffiCdp-7K-KtCRT^®or7e^^LS: 
5o feUh57JL7i£££S:§I5§§ 

^775-±75©9±17^7o -£573i:, 
-?:55© READY 5>77^X.^7©r, -& 
$Sfc§BB£®Otl:rc<;&*(Ao ftSilS 
^r^.U^US:5„ 
ns, 79-hr7j 

C * » ) 

SMbT©*©, ^75©7d«T?7o BSIZIqJ 
7tt7B©C:<!:lS7, tK9 1 JtK'V U cSn^ 7 o 
-B 7 , SB**ag±tfSUS.«#H©READY 
5>7#»*s©-c, «#HfcSB»«KgjtHr* 
7o 775-©SS7Y'V7 £Ut>£/uED‘0S:7o 
957 r lqI7«^l2SS7U\7®9^1S/v'CL^7j 
Si#® r tt®IZ^o^/vr77, 7x'v9U^7 0 

®n, 7K-b-hfflis®^^s7^.n/\ 

ScU£o 7&S1±/uo BUSUefflT, fc5 
HSaMUlM^JWj 

957 r ^nns, a«075>?39BU^77, it© 
£«X PCffiRESET7t\9>«? UC, H79 
— h»5«MG'C<ff*tVj 
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( m&/ ) 

is.mm ^^©cRTiz^sfixus^o u 
m<*'ytz-5J%imuzLv£e>, mmmtts. 

u^ 0 


1 11 } 7 °U 0 " 7 Ix 7 tO "if 7L71 lyli 

zncsru 077m 

VUf " A 7 ° no" 7 L 7 OTA y"iyt "7 

yf 09 " Tt 

1. SHIFT*- h STOP*-^ tyf 
BASICT-K"! f r"J? 00 "'Mo 

2. VDT" LOAD ’ COM : N83XN " K 
t-t'yy RET*-^ tyf ylV 70 
7 ")f 00 '"M o 

3 . READY7>7° fl" *197 <y "30 
l\"Jttf" 21}7 y"i 7*7 l') 7 T"f 
09 " -Mo 

** t *307 <JA ** 

tf'&tifc./ ) 

anarch ^>ytz-5? < ifa‘9c^r-Y>L*L 

£„ 9^7aCDZffiHCD»T^tt^^ffi<L35 l 0r 


L£„ 

M f SHIFT l + lSTOPte — LTL BASICt-K 

ct^Os- 7 t -fzw?'i'7&e>uzhi oyyn 

T^D-Kl^U& 

D D-R&CU ^©□TTVR^Atll/SLSo 
CfflDTC/RCcF^ U2K1 ©7D75^I& 

SAVE "COM : N83XN" I RETURN I 
n KHi^Do^c!:c:3r§iS8§^ix i o±i^L 
15 o 

(~ iSTH-MW ~) 

r t*-5rg-«-o 7ac7^^ : fe^M«<§<ir 
IBREAKI ^— £&Ufc35<L?x 
LIST^BX^T&T <15&\, L 
mm3 r om&zzy 0 i^ci^rTiaj 
*$57 r tmSSL 


»*gB r *5#9j*USo £©^tK^vtt» l Qjfffc 
<s ©££(/)T35<cI<LIZL^jOT'Vt? 
-iziz-y&gth&o 

9^7 r 7z7ll7-<70'J70-7^(Dm^Z, 
RAMiffl^TD^/LIS. SAVE "COM : " 
LOAD "COM : * Z\^Z^U7Z7o 15 
JffU Cffl^T'k, SMHTx TWJLffl 
mjCDmSWZgr^MzMZ, 
RS-232C#5©LOAD ^77077^7 

(Dz^«zyymx^z3z,(mm 

*-%maiz<?j 
mmm r £<to# | 9SU6j 

( ASCI lx-?fr&5 ) 

oyy r ^nrii. %mm^m7U7-o 

TSBa^ZtlZL^UOo SIOtL* 
’g.\zw-z>i5?mim- ! ft'oi5\,\(D 
7\mz^7<bs 57s m&<BBffi\ZG$&3 


•Si 

#-ls - F L tt, i fy F »T\ 

300# — (baud) TIL l#|Bli;300f-y F(£&fS Z 
LtfT# it. 

7-f3>T(Lfi^-L'-^> r<7^-( 
vTitzlt. p + >'<-* 4 y^?g9i£tZ£ 0 t: 
i'oTl'JT. PC-880 1 Tii , V V W<-X -f 

■y^fcE]<7><fc it:. 30) L Z ^.L-fev FT 5L. 300 



RS-232C#- F "COM : N83X 

N\ FiLHfc. Zttli. PC-88013.— tf-X 7 
-a7’;K7)P.l6-4CKH^4ftTL'i-r*L ±<n&ft 
It-ygnttstiTT, 

N:/<'jf<fi7?(tL 
8 : 8 f-y 

3 : * F -yXf-y F 2ffl 

x: X/*7X — f — 


n: s/\’7->< -?-*$) 

F : ±=*(MH$ici£eif tf^lUfe) 
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mm\z, 

ssl 7oy\^-7z77\zmm7^zz\z 
0&noMV\&f7-7*?7O77LJ3.£<b, 
^□'ve-izgufcxTE »ur®sfe©-c9- 0 
^-t?'vhx-7'ffl«sa, basictdt?^ 
^ ASCia-Ki-Cfe-TCSSti/u®^ 7 
□7^©-t2-77-7£2S3 ztiars m 
tefvtf, 7-Y77IZI3, ASCII □— Kfe— 7. 
^tf^>73^13<b, 7077 LS&, 7^7 
~7L0ZxtiZt1fV^3^j 
«*a r tm<03 L£, zni^nzL^uzt,^^ 
9«liC0»&nTl\*1*/i/*a, §«©7D 
77U3, a^n^cDzniJj 
777 r 07\3, ^£fiS£US7C]75kl& Z 
Qyiznz^i5.^mm\(jy7u77u-mz7o 
fm iRESETl TK^V^ffl.T, /tV 
oy%M77~ hOZ<15cSi\o How many 

fliesCWaWEttSCtht^as^o-t©^ 

xv, m^mmo^. 7077 ^, d-k 

SiH® r UtfS<33^$£ o □-‘K«5^*L/ 

1 z j 

7x7 r RUN 0Z<1z ^\ j 
* i*® r RUN U^LSo^n/ -fe-XVU FILE 
NAME? <tl\^y.'yfe-7#WTU3:g-ckj 

777 r: tn a\ufcWo 

^ZJt'vh»xY77IZ-fe-7g-2)tSfflS 
Stf*^ — OLT^SIAotlt'Vhfflii^ 
SSuffiffllz, cas : £dM , Z>irc<je£l,\o 
t-773x'f'77 



^777(D S§£ : £0#7<;&*1A„ ■ 

I RETURNS — 

iilizj:7^-EgB®£ffli*T\ 7077-CD 

ss^on u 777 m (Dt>77-(Dmm*M 

71 sZ, ^:7^>m(DZ}77—(D READY 77 
77f$ttOl5<tZ5V, (RETURN#-- 
l/C<£$l\j 

mm® r 7ij 

^^gagynyyA ~) 

777mZ>1&(Dl5ISbs IRESETI 7^-M^m.^ 
T, U7h2 <D7Q77L&, □ -KU 
Sb£o «*®i!l©sf«^7b^75®U^MXs 
a£B«»«>*?o 

S«x--9ia, 3»5*-?£l/CKBru #WK 
9®J# 7^x— 9tU7E^LTL\^g- 0 
saijcaiu-Cx chr$(26)^2io^^ 0 r a 
7j tUx7+f-gtHKIZgS^7ffl^'ViH-7 
tJmmzn&7o ^oz, z> : g(D , £Mmm\z®'Os 
7v7)U%ZAttZZ£tZ£-DZ, 7&7&Z7 
-77vZJi^S i£Z£tfV&3c?o BMfcRtt 

csotlw. 

znvm&mmzmjum^o 



mmizmRuzmm, sm7o 77isvfirmx 

*©0L 77777v7JUZSBS^ni5 ASCII □— 

^0)7^m7-7^7O77LVn o 

ASCII D-KTM2-7*nC7W^«£>HrxX 
mvfofl, 7~7V®n, 3157077 LVfon, 
1S.hjVZM7^>7ty7ZZtfV^(DV7o 0157 
x>z, m J \750i5ov, m^x-o, 7 - 77 - 7 , 
m3 L mmmmrj£\zin<mjkz&X7?>z<!i7v& 

37o 

I ^=)>^iAC^gffllSGAME 1£7<z>lbhj£7 
CiUCtBPPBaiV 

Al!8tll«IStiliiitfflgliS:t*fflraS»53ii® 
uz, ftrj'oxQrjzzzmMznzozM'b&Z) 

Zmi\37o tZZ>tf, 1 Tvn><L/ woy&ou 
OV, BAS\CV7077Z*imi3, 07>\ 33^15 
zmmrjzttt, z(Dmm7^m77oi5i57i5 


< 7 * v/mnxr> 



£t<ygi>Wo 

>ton©£ Sffl^izAoix &z tiaas <o si£/i/cl, 

cxfx zn^siaasaaffliNs^Ax^s^sg 
xTS^jUSvAx^ia, 680f®nfflB94S 
vces*. L,ctf oTv zne>£fi®i 
esflwszttaa.*©^ -®©eP9£iatf | 9 
r«<, n— tf-tas^n^ng^r^i^ni^ 
*0 *1*Auo DOB, / TV □> ti TVq>t3£<!£l,\ 
7©ia, zcjfitM^rosex^iuaafflSffl^ 
fflt®©iItUx§®??o WpJ5tfl\Xtt>W' 
©rii^nri^^feun^^^zfv sgx75> 
jussiaMsfflMs©'^ ass 

Aia&b<2ga S£a5SABI£*fl3«¥SIZ, * 

Siv^^o 

75^n^Miiiizt5«ntriz s tn<sffl 
/TyD>t/TVD>*t)«V\ 
£J/5F8&*ffi$«ria£#3^tf£^^o 

BLtXfx ®ffl£MZlA££U£b7K-br<To 

r FM~8 n LmiZc^SMTI 

■BIZ*Saa«f7-5t«>IZB; 7AZ>aiZRS 
-232C 

t\Bt*nB» l 9S1*to. RS-232C^H¥i«L^'Cl\ 
S7-T=l>IZia s FM-8, k-S/'yVpZ 5>-Lnk 
PC-8001 mk IIs MULT\8®£tf35<0&Vo LIIIMK5 

i3s w^zov-i&rttin&oKj&o 



Z3 : t»'yhaHf7€ffll/'36ttO'S*SaWSC«>lz' 

fm- 8 t l mizl 

U£ o 7lM^-bBfi£fflfii£>30Q7K-£U*U£o 
©FM-8 ISRS-232C tTfe'V K7 xAJL^IrIKIZA 

®LmB, RS-232C£7fe'Vb:7;p'r% : £|s]KIZ;t 
-yyv&tthjo zcMztb, 7a77uz<& 
x£l/C, RS-232C£ffixffi£t;0-t2'VbX-7 
£ffioffl££#d-Sll»Stf 35 *9 * 7o 
pc- 8801 izoo b^s tra i;ri/£o 

®AtZ'Vbx-7IZ, 7D7xA£ ASCII tz r 77 
SIZB,FM-8, LmZtO^fflop^tfffixS^o 
LIST "CAS 0 : 77>-ni&" 0 
@FM-8ri^SAVE"COM-0 : S8N2"®£tf— 15 

ascii □- briaesssmm-o 

, ©PC-8801 rffixSSAVE "COM : * ’PLOAD "CO 
M : " cSS^I Z<fc57075kffl©SBv FM-8, L 

nrCBTSSti/u. 

©FM-8£7~S:7l/E-blZI7C, LDTCLIST"C 
om o : cs8N2)" zyuyyzfcmmmzy 
7, S®IZS/x£n3£ITT\ BASIC7D7xZ 
zlt, x^rAbiu^izn-b^nsmns 
B<, aBSOftCiLSStti/i/. 
fflZ, L3^9~5^l/E— bIZITCx FM-8"C, 
LIST "COM 0 : S8N2" 0Zbr ! &|q]l7C7o 
S33, 7 b IZtfSIZB, 

(FM-8) TERM "S8N2FA" 0 

(LID) TERM "S8N2" 0 

(ttyYJ--7\M’7ny s 7J*<J)ffi£) 

bx-7^®xr, BASlC7n7xA£3f§IS7S 
-7U7=5U&®0 * VStWZBSll/Stfo 
©S‘9S0N7D7xZ k ^7't'^>IZD-b7So 
©7t'Vbx-7£»SU 
LIST "CAS 0 : TEST" 0 
AA©)7SA, 7tZ'VblZ7(=l7xZ>7ASCO 
-bziegsnso 



®FM-8#SLmE2i*£a&Ettx 
(FM-8) '^h4ffl7D75^D-KU © 

T?ft-Dis.T-y*mm u «#e«b« 

Atti#2OT-csBS£«s. run 

(un) U^h7ffi7EK^»tD— KU § 
<ix-5> ^ E»^*zjfe' 'v h £»e«* 
tfe'vhu sis§g^ii^7x-ffl± 

ElZ'Vh'USCDSv RUNcf-5o 
@L 3 tfSFM- 8 IZjg-5£4£>IZ«L 
(FM-8) U)*h5£®,\3c<Jo $£B9©Un 

atniw. 

(Lin) u^he«et\a5^ o aB(t;B0®FM 
-sutniw. 

@TOtfc**9tf 3£©©<&^2f 


t\ ynyy^m^v^-c^^o run^ 
tmmzmzyy^yy is. ®, @(Dt35W 

( *%i~ ~) 

FM- 8 v LfflCDS# CPC-8001 mk II tMULTl 8 CD 

aBate>i5i9£»?fifflm iicos^tK 

Hag®*3'Cj|^U^ti:A;'C^^o Mftarc& k# 

§§7D^x-£35Ji$©C«L jfi®32Sft£C:XI 
T©a35*«# UCEM, MMBSTSsUIA/C 
<^Uo $LC^&ffl«£0L 

TIOI *A«^ftBaEttBa#«Br3-3-7WW#2t';U 
POPCOM* 7^— ft 
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R'<VU>'>3— 83l^^K — h 


•V , V/NMSXiffM±i 

ms xmmzwt: 
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0 / <vu>'>3 — ’83 urf— h 


*■ t i/i L’»< 






r /N*v t’T <7)3£ J o'’'V f 

77my77< 


IWOPIA? 


*§. 7W7T-/3 

77>i;ua/: t HHH 

◄ * fc S A # - a. - ^ f '- < 7 m ft <75 
i&*Jg 7jk LtzB *Hf«lS&*t 
a>a— a-. 


•!/ N7V \ > V’-Ol’ h\ •> -7 - ■/PC-SOOOo 


AN E C<n P C -8201(7) ®7iv 0 /\> K 
JU K 1C fc JS2«fS tflS L T # fc 


£2>**El6fc^hiii 0 

B$ I B M^JU? 1 Ax-2'3>5550ffl r 1 © 3 (Sj 
^ / \-r~3-p^L± C -280. S±i§ F A C 0 M9450- II . 
^TSS)l^^^L/-h7000© r lS5 SfflWC 2 

fij •cmt5-3fiie^yhW3>3{f% * 
®?ii»3W5^^Cjf>7hL/-5/3> 0 ffi 

■v^kdAKc*^ 

■ L/CUS. ^A-t'Affl^-XO'BTA OAIZ^« 
tcc#. awtt/uiesclfc^stfazmTite, 
t>55 hoyi tZSOBHA^BU 

©if§©/iw^?Y^>y£itfSiA'\, 
-9'V^r«fiX«3D*Z)-hU'v2«Ca«t!x Eb)® 
o»o\73 , ^$uiM^‘0‘cis«:<ati^b« , @ii'Do 


®8>ISE I C. PCGfc&ftu ^-('□>TfPtt s C> 
mmtfvziz'o, 1 6&©c7x a -r 'v<7 # & u©s 9 . 
£Uc><®lA£o UtfU 

"CUiSffiBu ^nBCMMBMibftDttC^IXD 
«t^-^f»^i&SJ;BCa-3CZ<t:CD*-5«o 

B*®isis&affi=:-A-rBu Bsts^an 
=/ Ax^ Cl NS) IZA>l\Tffllg6&£«8Sffix ; E> 
Ahb-2/3>®ffo"CUSo dp^7x>2/AxA 
©S^-CIS. BUMWRtfl/OrfexbtrHliCB 
iarcBoutt*s«?xfm*!ira\c'Ox 
YD>r*3n>t^L-5>£*UE^S::£tfrS3 
x-5'jiis©n»xf«t)n-a\Bo 
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W=)>D7K'yhg£€3t\ 

03-£«cia, Mi ©-otui:. 

r L0G07>KjMI$nri\Eo LOGOt 

U3.tfS -/Vt-hlftfc -£UC AUMfcLtvS 
rm\ pg^»5^-r'^>rifflig-ssttn7K'vs 
tfai&sns fe'v?£5CM«o ;p*u*j#s 
^sTJfcEAndrobot’PHero-'k RHINO XR-2CJ0 
jiae®=»««^-^^9-na<a£fx £<& 

»SlS^5 !; E>^h'b-~/3>c 

B^MLOGO=&gm 

U«l:mia«S&l, \ 
tCStf. V^hOx/ 3 
(D*—fi— ilc-tbl ^-^uo^T^- 


ly^lim MARK5 fflCOStf8TN£*.-5 LOGO 
va-n^LIUfe ^-OXCCili 

tfe-CSS^SC&oSSW/V, 

niiv^h^ 

□>t:zL-'9£ffi^£i5tSS'Ax^ (CA I ) CD 
SOStflBSSftSEonx V^hOxPCD*-#- 
fecncm **«aaaffl«iWB^3-ctti 
jh/oa£ 0 oor^i ro>£u*i^-z^?2/> 
cd^sckuc^ s<U5«rca\!S*ifw 
esfev CoOJeWO>ffi#rO^TO4CI3*L\ 

cwo«surt\e*-3*f 0 
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m 0/N°yn>'>a-’83u*°-h 


Z©2/3-IZ$fclZoT, 9E13B, 
Kasffl©Msxtt«©7tN-^v-rzi> r w/\Y 
I S -503 j S r Y I S -303 j 
St^L>ri\So B^^SC^A-Cs 8TF*«£ 
*, =?¥**, BlI, US, El* 

TXYCM S XfcME/ 

5/3-rBM S X/fAf f 

np/i/cufe, 

ms xu, s^u^ffl^suv^hOxs^a, 

tg^-s?s 0 cn*rs£/wSDY>-i'D>B, mm 

<Qtt o a&©SYIJ>IZgxS7:7h£S-?:gSU 

Tfc, te«»FS©fefflU/79Utf&tfxS<9, A# 

5&tfxS9LS!&i$USnizrt>a5£S5-5o ^ 
•5U£§<©a- tf-ffl^RWzzjSfcT, ^y^d 


v^haruBAs i c©ds>w&&<z*£«s 

fflfc©cu^9tiHbEcii7ie. B$ru«<© 

2/3— au, 2©MS X«S#i8fflfg 1 ^S&x 

sb $«§§© 2 ««^Bs*nrt\c. seissu 

r YIS-503j ^f32 Kbyte, r YIS-303j #16Kby 
te„ c^n5»-y-^*ftrc«<, 48WB©g«&ft 
USTTtZ'Vh'? YT© F M-y-©>K2/>-try-Ytf- 
ttdfflnfflwiz^aHK, sim, gm • 
gfflgfjSo&S^aS "52- 2?'y? • SY=)>" S 
ur^uccttfr^So "g£© w/ V'tffFx 

S$T»Sg, 7tft>ffit§U r Y I S -303 j# 5 gP3g, 
r Y I S-503jtf6gHgSgUZS;ttS, ^?Y=I > 

M S Xttfti/ tVD> / \©#A7.-£-U, ±E© 

«Cfe10»a*Sffl'C, C©*0fr5*El£(ZGttT3r 
Sffig'V2/alZUS’feffl4:?®$n, sa©M s x 
JffiS/TVD^ffllWiCaSLyCtVi o 


iSMSX©tti 

ms xu, tia^j&3§tiiz7KY>h£33iA7: 
ffittsnra'o, eros©* ws 

Sn&o CPUUZ80A, ^YC’DVAK© try 

Y Att«S5*BASics^to t usiwrci egfflXj 

x-T'xY-f'yCA +tO>F$>lYL/-'9-LS 
lIZYSgg!, TxZY'VT^BSgtSlIfflLS 
I , aD*yhE*5JE»^£®ira«r3. 
<M-SOxP0tt&> 

CPU : Z8OAC0SU »JMWa±«rHOM 
32 K, RAM8K 0 70 "J7&, 3.579545MHZo 

«fOZ*B€-K 1 WO Z*s®ffl 0 

CRTC(CRT3> hn-v) : 32$fflX7xY 
SBS, 16g©75x-^g, 256xl92K'Vh©7‘ 
XZY'V?, X*AM0¥x24fj*g#qJfigQT 
MS9918*§g©LS I £fl§l,\-5 0 
PSG(Yp* f 7vY;u-t*"?>'FS>x*u-*-) 

: 8 307 -7<D 3 SWgaUSY Y;t©S&£ff 
qligUAY- 3 -8910^0 LS i tf®fflsns 0 
*-#- K : dr-S'v7U72er, J l StUSE 
PJ^SUPYOIUESUSU t-FU, 35AX 
?, »J\S3k Z79ZJY, y5tfU©40S, 7 
^y'v^^-iz^sa xjznMBtaortvs. 

Y77-7 i-x: xjfe'yhY^-Ax-AB, 
F S K gSSTM2007t\— SSI324007K— „ 8f>© 
D I NDY757-*®Sl/CIA5. vaYXxY 
'v9ffl®AB©7K-h^2@s^g«urt^o 
fcT5*>r<iSia:tt«©J®eB«<, 3>7 KS'vK, 

R F , RGB ©Sil©fc©tf fcti&SYi® <*n£>„ 


SU>9-<23 r D'YB-xYAC7Y>^-3’x- 

A©WiSiiu«:uxftt«»s-u^*4a-a^o 

<VSSOx>/©tt«> 

iK2»rotif • ss^ssisguEtti&nE 

is , N-BAsicud, mfj < Di >- i "? ay 7 hVLm . 

basics, ssniJa^Kj^onSo s<iz 

'7 = ?7-<' y 7 ■ tK7>KgSflWx-FA>hUO 
^©sjsOo 

BEEP CBSAtf-^ISSa) CIRCL 
g(3g®US/^A-5'-lza; l OP9sI<) C L 

scbss^xys) co_LOR(gsesg-s, 

7Dx-3-KU0X75l5Sri6g) DRAW (% 

7 • 

CltlWJBtftO GET/PUT C^xS-T 

" j 777' j - y<Di &- yzszmzm i oz®/w 

SZC) ' LINE (}§SSnS77x-r®^S 
Besft««<) LOCATE (75-VJl,£®S£ 
nSSSIIZ^iDSITS) PUT SPRITE 

cjgssnsTTxYh/ w - y & Mmv $) 
PAJ_NT(3g®SnSKHffli l OXA5\U^g-2) 
PLAY (5x-27'V9 • ?C'Ox>'7’-SIZS£ 
0\g£BjT) PSET/PRESET (J®££ 
nSj^Ic/fS^a) SCREEN CX7 

u-> • t-F^ssas) spr i te$ u 

75Th ■ / V P 0 K E ( V 

R AMIZgjg§®(i5;fflB§£»SZ<0) SPUN 
D (SC 1 TwtsnZP S ©bSA'S'-IZiS 2 ©f*3 
§£»£Z33) WIDTH (xY^F ■ t-F 
IZ&l738t£@©£g:®£lSg<y-5) 


74 



zmpjtm 


★ <ftUtM@^IS78~88'\-2;c®iOSg-o 
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niZv m 

mmiz7Lst*yhU5 

>P7(D1z / 

-7*77 |GTO|-»-t2'Vh 























PC-8801 





'C'®A;L'^33'5o 


wozfrvvrj) 


mgmmyi'-t? > b -3« 


7 Y'<> 77 —tz 


ctt, a£J?,l;t5fc<7)A ! *5o'* I-- 
M&tffcTfciSL 
C'feOT, *i3^s#y-A*-5 vt* 
LtzbtotiZ. 

ttT< n5>y-AA ! iit^glftLT#T 
/.'5„ 

C<7) r K *J -i7> K j fcKSfr‘4 
iSfcy-A ncwfc'o $• < <7 )t k<<>* 
t-y-Afli, ±A^* ! ^±T-*o 

o LA'U L 

b'LtiOtiJ K‘J-A7> Kj Tli, 
5--T h/l'iTfc'J i^<ni,TL'5.iOT4 3 
zfccfc*,, £A'<b* 
ots*®. iii:aiT< 

? 4'SI5<7>1fi:#A 5 C. C (i (i * 5 „ 



A®®<7)^<7)$if|fr>b&ftJ: 7o 



A®&ft,*T # jti *J /- „ £* 7 L <£ 7 » 

■SI6V7 h h 

7H:'> K'fcLir. 
s^IB(7)7A, fc-j&M 
popcoMs*a5mss v 7 


3£>#<7>Bs PJ-A7>KM'? 
tC7T<ftJf-f77 5-f-f7?K7 

-r 7^ o 

f 

C^&cnvttZ „ AfrlfcHifcfco 
T*^MAT-L'fc 0 tf**2i<7)airt'4' 
HSU- ‘PWX ititLt, SUM* 
fcilw+. 

£, *<7)4»CAr>fc<7>l4l.'l'<7>fc')!> < 
i<7)4UCjgM£*i 
ifco 

T, itiP£ji7>lt£<T(ii.'lttti.'OT 
?*a^LJ:7a 
ifflCICIiliofctti's -C, SJ 
gCiti77!:STibhfcv — if*<7)gu 
(?*®). .5*iA «5£.i.‘Jig-3T* 
54:, *-C(41*<7>$A < !?J!ot4’*- 
t-otfiZi 4T-®t/TL'5fc'lt (? 



A@f?Jj!i<7)-*iI£, T^T^T^o 



A©*-;S<7>*A4H- 'J'g,A<- 


*@) „ tVtzXX* &*J^iZtZ*> 
ltM.btitn\ Xb.zzttWtnftW' 
W* ? ax< %<r>t't>t'bt£\.'» 

<, 4i>fc'J*J!.ls]L £*<*>, -£-:£ 

itL'Ofc;,, 

t£\.'t\ x>t •;$ ux-$ut?fc?t; 

L?*'*, OL'»C?S?rA'ltTL*7o 
-T54:, ffili-MffrigLT < ttfc 0 
ini<<t7trm 
4: :: 4: 14 £*'*31% ®Uh'4'frA ! f i' 
Tl'5„ x#£%*A4:ffl*LT#T 
I'HUmtt r <7-'f 
•yj r)g<7)'>—> 

X&9f£t>i&®lZZfl'-e> h IT < 

n*„ 

htf hrf4:iI$-£< ztizTSo 

* stills ®«*a-7(tfcy t4-* ! 

4:, *r# 4T3: t; tntoT 

L*-7fc (¥*®)o LA'fc, UiRli 



A©ffiA\ Aff^tffcL^ofc!! 



A©*£<7)+T#flc4--7T L i -7fco 


■4'/7 

iS'JSfeli, 

7nf> M*„ 


<75C-#*i;J: IK 78-87-5— i?(C*S7>LfcV7 t- (:: 
v OTCBUt# «•«*<#(: (4 M, 7 7 (-«. «H, ttflif, K«, %*/£ 
TlOl *«a5^ftHEWEa#/*B7 3 -3- 7 0SW*2 fc^MWS/rrfcll# 
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A®ikftCLT* 






A@? v $ a, % i mi < lit 


T'fc. fcL* 

b'Xgtzb, -j-A-fcatS^y^'Sg 
*SUBU>. j&~. 

a z ii ss * n it w -tt * » t fc'o 
-krA^MzZ £^z ISfe(?K©)„ 
JLjW*«:'J'S4A4<BC.. 

ta^CjrSC'WCJsir^l'TLS -Jo 

*CClt. fct' 

Tl'CHMt-itg.tiSA-AtiZt. t 
W'fctto-at -jfc-^-jo hi; 
IHI®3'? < ^.A^^.A^i:#jt < *b L 

4* ! B. C 

cA'-bteitarcii. 

4Rfi# &tW>m £$tiZ o h -V t"4 
ti'i <fc ‘J* h- 
y -jrbhci^a y £!gi; x l i -? <n 
fc-(?#©0). 

UKtt\ ns-s&ittti-rfc. *±m 
a'-SOTSfFC^U'a.fcOo cwt #1*4 
yin *-y £ ^-e-Bn-So ‘Pt'X* m 
L'flg im-A.tiiv-ztfm.titz mm 
®)oHS-® 4- A. tc It ^ O' it < « 1* A' L 
Ji'Ul*, ClfTL*ofe&.» nf 
fc-5=£i:&fcj?.-&T< 
n<C<4r>TLi -5. 





A®feLt.u *z<niv-*'$A, o 


A©ifcil4-zxt> SiJtf>S«T<0 


A^tfeoti-o)) < „ 

:fcUS!? P 

iOTtt#«Sl'<7)(5*'^L'o 
i'ftt, .^££*!itu t fc<#-7fcy v 
**;*< §£(,£:< 4-jfcU LT< 5. 
il\ 'w-tn^tzii'bty.'-oxnx-bx-^ 
%^ltT-«4t'f>U.'o Ufrb'M. Tl' 
5>#4<7)Co 

if fcSivtftf <•>*,. StfcfcyptL 
T^L'XCifX £. fii£*£5IJ**<3in%. 
WPttifii'fcJBoT,. i'SA-T-S£>£. 
$ b ca < ®±*^iftx I'frnx l 
*o„ i'-3tz\.'t:zixm<<ntz. z 

<n9it/mm®<m>) 

SAVE LT fc C. t/ f 

£4IS4tf>t::4\ Z <714- A Tin 

& s b *<?) <t $ z <7j 

fc'o &-fr<r>M.x\.'Z>wti<nx\ itfot 
uiitA'li'. £zzb\ *t<r>b't> 
yizAtlCABfcLT. WP*<*A.ci. 
$* ! tiTl>iofci:LTfc, sicii 

tzb'b^ n 

Si ’SAVE" LTfc-l'T, fi 1 



a® 



AOIRIZ. m«M$fr'iL£-3Tl'£o 
Zrst-otzhs S^t&Zbtto T^y 
®Lfc«-5 4-¥< a*»A>nS4fc L 
n4'l'. SAVEHin A^rt'CA'I' A-> 
t7<XL fc$]<7> 7 a y t"— tf’SL'W £ 
4 So fflILTfe;-). 

*n£. C<7)4'-A£&sJ5Cf!>t;: 
7t, S:(7)fciO*n3?S?*fcfflSLTfc 
l'fclS-5*n'l', P v> K4'3tf§A* 
4<7>t\ 

fc'ltT'fcPi'fa.-S’litH'T < n4 

l'o L l'3?K 415 £ A £' 

tz U (fcfcAlf 

N.S.W.E4 if) ^n^ZL'tihtXl^ 
<ntzb\ mmtf&tM&bLX'f - A 
iz<n?ib%<ntz<, itz. styt—Viz 
#=l' 

fciUKS-EALTl.' < 

*«m *crtCWP*jn>'W-ti 

^«6 Z Z £ 4T'£ Z£ * "j ■b—i>b < tH 
So 

5c^MS i: ff D 4 ! fc B a. S <75 1> * L l'o 
A'ltJET-JS^LT^fc^. T<714'- 
A.*SIJ £ X fc «t 

'jZ>0S'tt4® i; f>n4i'»a-A { J>4 < 4 
Let, ^ E-y-OTSmi3iH*4ias 
WtSfc .4 *<5S t; fc- T fc o (KAO) 


#SB : . 

as basic +« swis 
ii$ -ya^-T^o 

ffi« ¥7,800 

ft&an PC-9801 MZ-80B/2000 
Pffi ★★★ 

'7z>X>X'vO-- y-0>K ★* 

Atf-K-«^14 ★★ 


00593-51-6482 
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aFJiia^<7>'j'ift4^ *' s-sit; t , 
gcatnfcs-i'^ffA^TSfc*; l 
X N f»TA<itg::*><7)A'i:9r' , 7?<?-tt'b 
h5. xca 

if LT, *<7>AMxM?S‘JLJ:-7i: ) f> 
rjT*fc<7>A<5:l\ X<7)#liI<A±A'it 
TO)*, 

Stflk 4t«6iL'<-**fe¥tf<C-tt- 

4'i'< ffifficog'Scx 

tfi: ‘JT*«< tttt^tUtiHi, 
aHA+x-, *ii:»ibft-rLiot„ 
r *&! X-/Mtitzt£-)*>*ltb\ j 


.5>tl6]Z -5 £ H, & £ » l'iST-91'? 
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sl±5±^!! 


?X, 7q^5A<7>d- KA'TA lk 



A® l ' A'C fe y -/ 4<7)* o (Jl. '„ 



A®fcrtl£Hf.i:<Z>A\ «B<7)g/ 


l~i 

ASBCfti^U'y/ffcti, 



a®/ << y;nz (iSti A O fco 



A©&»nTII6<7> h-f UA'fo ? 


A® 5 5 (Z*5 ! 


AMabSC&^XI.'* i *C£a.£o 
Si.v<.yfUfcgi:> mscfft/fc 
So *A3l1tt,£b U'. Z-Ktifr-k 
dRtjiz$n4<nt,®</jA' 0 
X-(i, sMizA^>X*J:To 
J& fflAgBffiCffit/ZfciA HigA { n| 
oXl'S> 0 *TftA'l'4l'A'i:gf5S£j?. 
ifcfiAiT-5 LfcxtAM'SA-^X 
2tzlit<r> K7’A«;SxXL'-5.i;z3(i N 

KE&tk ^«/^fc®IZ-5A'AXa'-5 
(¥*©)„ X x x-li A'-5 i' 6 4 b <n A< 
^C-Piro/f. Sl*.i:o-z>lt4l'J; 
-k +-»-;i*LXo?(Ag5S^itfe-5 0 
1 -ZKAgBSC 2-p<7) K7A<A*l§-& 

fcfcft Ik il*A:L'^(SilZ KTA'4'l.' 

LA't, ^A ! ^iK4-A:*, 
ftASBSfcJ: <©XL'X, i-9-A< iTX 
Cl'4A\ t)A'<b4< 45Xi: fc*‘; 
^f-T. CA4fc$tt, *tt±ftAj!.Sa 
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It 4$ 0 W^tliU' 

t)<7)T--r -JW47 7 


yp^7A(J, MULTI 

8 T'fT o fc <7) T', BA'(7)««T-fc#l, 


CUffS -ti-Scttf-C#* To 
A,t> h7<LT*T<t'Jl'. E2 


UXM t^CKT^ 


100 '•**** MULTI 8 Sample program l\tyl\' til 9> / 1983.9.7 By N & K ***** 

110 COLOR 7,0,7:UIDtH 80 ,25:C0NS0LE 0,25,0,1:SCREEN 0:CLS 3:DEF FNX(X)=X*2.35 
120 READ X0,Y0,X,YSLINE(FNX(X0),Y0)-<FNX(X),Y) 

130 READ X.YilF X<0 THEN ON -X GOTO 120,140 ELSE L I NE- ( FNX ( X ) , Y ) : GOTO 130 
140 COLOR 2 S LOCATE 55,23iPRINT " l\ t y l\' t * 1 * * *' 

150 GOTO 150 

160 DATA 80,38,78,45,77,50,76,55,76,65,76,80,77,90,78,95,81,100,83,105,85,110 
170 DATA 88,114,90,119,94,125,98,129,105,133,110,135,115,136,120,135,125,134 
180 DATA 130,132,135,129,140,126,145,122,150,118,157,110,160,105,163,100,165,94 
190 DATA 168,85,169,80,170,75,171,70,171,60,171,55,170,50,-1,0 
200 DATA 127,19,132,21,133,24,133,30,134,35,137,41,140,44,145,47,150,49,155,51 
210 DATA 159,52,155,45,152,40,152,37,-1,0 

220 DATA 155,47,159,49,161,51,159,47,157,42,156,36,160,45,163,50,168,54,165,48 
230 DATA 164,45,164,40,166,45,169,50,173,54,176,60,175,55,173,50,170,45,169,42 
240 DATA -1,0,138,29,139,36,141,40,142,43,145,46,-1,0 

250 DATA 143,30,144,38,146,43,150,49,-1,0,148,29,148,35,150,40,152,44,-1,0 
260 DATA 130,14,127,19,123,30,120,33,118,35,115,38,110,40,105,41,99,39,107,38 
270 DATA 114,35,122,28,-1,0,107,38,101,37,94,36,100,35,106,31,-1,0 
280 DATA 101,37,90,39,85,38,80,36,78,34,74,30,80,32,85,33,90,32,98,30,-1,0 
290 DATA 71,33,75,37,80,38,83,38,-1,0 

300 DATA 190,0,193,5,195,8,200,14,202,20,200,29,200,36,200,42,202,46,203,53 

310 DATA 201,56,198,60,203,60,206,58,206,63,204,65,206,63,204,67,205,65,204,69 

320 DATA 207,70,202,77,207,78,203,84,207,85,204,89,206,87,208,89,204,94,206,91 

330 DATA 207,92,205,95,203,97,200,107,196,111,193,114,191,120,188,127,185,131 

340 DATA 183,132,180,132,-1,0,189,121,185,127,180,132,175,132,-1,0 

350 DATA 179,125,172,132,-1,0,175,127,170,131,-1,0,174,138,170,131,-1,0 

360 DATA 75,0,72,5,70,10,70,19,67,25,66,32,62,35,59,40,59,43,60,46,58,50,58,54 

370 DATA 56,60,57,65,58,69,59,70,58,73,60,80,60,83,63,86,65,90,66,97,67,99 

380 DATA 73,100,75,103,80,112,84,114,88,114,-1,0 

390 DATA 129,21,127,27,126,35,123,40,115,42,-1,0 

'400 DATA 128,23,131,30,131,35,129,42,-1,0 

410 DATA 123,50,126,50,135,48,144,49,150,50,155,52,159,53,158,50,154,45,151,43 
420 DATA 140,43,135,45,126,46,123,50,-1,0 

430 DATA 107,46,108,45,102,40,98,37,92,35,88,37,81,41,90,41,95,42,100,43 
440 DATA 104,45,108,46,-1,0 

450 DATA 131,55,135,54,140,54,144,54,147,55,152,58,-1,0 
460 DATA 129,61,133,58,138,56,143,56,149,59,153,62,-1,0 
470 DATA 132,59,134,61,140,63,145,62,151,61,-1,0 
480 DATA 135,57,135,60,138,62,141,62,143,60,143,56,-1,0 
490 DATA 138,60,139,61,140,60,139,59,138,60,-1,0 
500 DATA 106,51,103,48,97,47,93,47,87,49,-1,0 

510 DATA 106,56,103,51,100,50,97,48,93,49,85,52,90,53,95,55,100,55,105,54,-1,0 

520 DATA 93,49,93,52,96,54,99,54,100,50,-1,0 

530 DATA 97,51,96,52,97,53,98,52,97,51,-1,0 

540 DATA 111,61,111,65,105,72,101,78,100,81,102,83,-1,0 

550 DATA 102,85,104,84,106,85,-1,0,112,87,116,85,119,88,-1,0 

560 DATA 127,83,127,85,123,89,-1,0,98,84,90,91,88,94,-1,0 

570 DATA 135,90,138,96,140,100,138,103,-1,0 

580 DATA 94,93,99,94,105,97,110,97,115,98,120,100,125,100,130,101,137,101 
590 DATA 134,103,130,105,125,106,120,108,115,107,110,106,105,104,102,102 
600 DATA 99,100,94,93,-1,0,157,110,156,120,157,125,-1,0 

610 DATA 98,129,98,135,97,140,98,145,99,150,101,155,104,160,110,161,120,159 
620 DATA 130,149,140, 140 ,150,131,157,125,160,123,170,131,180,143,160, 163 
630 DATA 150,174,145,177,140,179,135,178,120,174,114,170,110,166,105,166 
640 DATA 100,168,95,170,90,173,80,179,77,178,75,175 
650 DATA 75,170,75,165,76,160,78,154,-1,0 
660 DATA 98,130,93,138,78,154,60,158,-1,0 

670 DATA 180,143,185, 145 , 190 , 144 , 195 ,149,200, 152 ,206,156,210,159,215,161 
680 DATA 220,164,226,168,233,175,237,180,-1,0 

690 DATA 66,97,60,97,55,100,51,106,44.120,40,128,36,134,33,140,30,144,25,148,-1, 
0 

700 DATA 52,168,55,165,60,158,62,156,73,150,76,145,78,143,85,135,88,132,-1,0 
710 DATA 96,127,93,137,83,143,80,144,76,150,73,150,-1,0,53,168,50,180,-1,0 
720 DATA 53,168,25,148,12,162,15,168,36,180,-1,0,36,180,15,168,12,162,5,163,-2,0 
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20 ' A )< J M> 

30 ' 

40 INPUT "l>A”> J 1)2* i 1 ,N 
50 DIM F$(N),T$(N),U$(N) 

60 F$(0)="5+“ ’ :T$(0) = , t?’'lT :U$<0) = *tfl * 

70 S=0:T=0:GOSUB 100 
80 PRINT m DD"J9 flO : '?T 
90 END 

100 7 AP9»3tt<7)1»^v*^¥«7?T-r 0 

110 IF S=N THEN RETURN 

120 F$( S+l ) =F$( S ) : T$( S+l >=U*( S ) : U$< S+l )=T$( S ) s S=S+1 s GOSUB 100 s S=S-1 
130 PRINT S+l;' IV'ji J I>A"> ? ■;F$(S){" »7 *}T*(S)j’ ' Ol'DJ’ :T=T+1 
140 F$( S+l )=U$( S)sT$( S+l )=T$(S):U$( S+l )=F$(S)sS=S+l: GOSUB 100:S=S-1 
150 RETURN 



< ksiv 

•pc* (n-basic) 

40 INPUT ‘l>A“> J HI' i ‘(N 


•MZ-801 


00. PC-6001 mkll 


10 REM 

20 REM A J < 

30 REM 

40 INPUT 'l>A“> 
100 REM 


99 




r /\y'i / ©Sj Ut) 


p# -&£>£©©/ 

©pr 0 r 8 o'-j—y jISs 8 X 8 ©3^r 

^i±Cs 8«D<7-f->£, ?7\ 


3D> 

<fcxCEB^3/U/l,Wo 
■ <Z©7DC/x^rB, 8 x 8 ew© 

£L3 x3OTSm ( 

RUNg-sts r ?j ti©§^« 




OVCSS^o r 6 j £A2)U 

[RETURNl ^-gx^ n>t -IL—^tf^J: 

l&U 6xe©ii:6®©Q 
©lEixUEBtfcjATv 
-&n-?n©EH ; £5 1 x'v9g'SS©C 
twxSKutK 



'T / Zl>t£ _ Cg'o 9d©Rfflo5v dfl 

^©ssiJv sirot^o 
!R©§§C35£-5x>^£lWi:. 
=fe<C5^efeW^g-o z>m<fc1zVZ> 
ts €-7x^50 

ini^m \-~c<r 0 



100 





-tM'snom @T-xh 


%fD>W-i'=OffitUSffiilE£ 
iflfflmsv 2 
®©ttie©siv 3<s©mg©w^ms 

**fcx a§&#g£»®R N D( 1 )«£ 

oTHRi/a^o 
*ZzL-T^Sto£®3\<^ +H& 
□ tisilRSSU-C**?©-^ 

1 00 — 1 000 0 < £> U Wp-ozatg Ud: 


% tBg©is*du rt~&yihtmm 
tsntt o 

1 0000 BC BONE. 
h i 5-l'UT*T:<^l\o 



A200IUTA 5 -oT.fr* Ufco 
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(MZ-80B, 2000EB) 


100 REM 9130 f'A f7l> 7* 07“ 56 
110 DIM CT < 18) 

130 PRINT CHR*<6>5"»* 9130 T7F" 

140 PRINT “/Za-" SPRINT "1)13/ A" 

150 PRINT "2)23/ 9" s PR I NT" 3) 33/ 9" 

160 PRINT "4>*9‘/" 

170 INPUT "0“ 33“ 99 *-13 3t79" 91 " 5 A* 

180 A*=LEFT*(A*, 1) s IF A*< " 1 " THEN 130 

190 IF A*>"4" THEN 130 

200 C=VAL < A* > SPRINT CHR*<6> 

210 ON C GOTO 220,280,350,420 
220 PRINT "** 13/ 9-1' 30/ f"// 3“ *73" 

230 GOSUB 700 

240 M=6SD=0SG0SUB 750 

250 FOR 1 = 1 TO Ns A=INT <RND< 1 ) *6) +1 

260 CT < A) =CT ( A) +1 s NEXT 

270 GOSUB 500 s GOTO 130 

280 PRINT "«* 23/ 9130/ T* // 9/ 3**73" 

290 GOSUB 700 

300 M= 1 1 s D= 1 s GOSUB 750 

310 FOR 1 = 1 TO N s A= I NT < RND (1)<6>+1 

320 B=INT(RND(l)*6)+lsA=Ai-B 

330 CT ( A) =CT < A) +1 s NEXT 

340 GOSUB 500s GOTO 130 

350 PRINT "** 33/ 9130/ t“ // 9/ 3**73" 

360 GOSUB 700 

370 M=165D=2s GOSUB. 750 

380 FOR 1 = 1 TO Ns A= INT ( RND ( 1 ) *6) +1 


390 B= I NT < RND ( l)*6)+ls C= I NT ( RND ( 1) *6>+l 
400 A=A+B+Cs CT ( A) =CT < A) +1 s NEXT 
410 GOSUB 500 s GOTO 130 
420 END 

500 REM 7*9 / 7" '/3h 

510 PRINT "t'A 9179 iV-t3K" 

520 T 1 =0 5 T2=0S K.S=D+1 s KE=M+D 
530 FOR K=KS TO KESC1=CT(K> 

540 T1=T1+C1 s T2=T2+C1 *C1 : NEXT K 
550 MN=T 1 /Ms SD=SQR ( T2/M~MN*MN ) 

560 TI=100/T1 

570 FOR K=KS TO KE 

5B0 PRINT K)TAB(4) ;CT(K) 5 

590 PRINT TAB(12);CT(K)*T1 

600 NEXT K 

610 PRINT 

620 PRINT "t"// 9179/ 91*3 =“ ;MN 
630 PRINT "9179/ fca 93" 33939 = ")SD 
640 PRINT: PRINT "HIT ANYKEY" 

650 GET A*SIF A*="" THEN 650 

660 RETURN 

700 REM 9179 lx *9 

710 INPUT "91309 9179 ?"JN 

720 IF N> 30000 THEN 30000 

730 RETURN 

750 REM CLEAR 

760 FOR K=1 TO 18s CT ( K) =0s NEXT 
770 RETURN 


•PC-8001 

110 DIM CT< 18) : WIDTH 40,25 
130 PRINT CHRS( 12) : ' ** 900 
200 C=VAL< A*) SPRINT CHR*<12) 

650 A*=INKEY*:IF A*=" THEN 650 






wq^m, 

£®tU^»ffl$fI©7KA>K£, & 

s<r, 

tT 0 <r3t, £t*ISlO£A;t)U£t 

<r-5t, r iois, 6tiKxns5n 


(PC-8001, mk II, 8801-N-BASIC, FM-7, 8flj) 


100 U I DTH40, 25s CONSOLE 0,24,0,0 
110 DIM F*<20),zs<20> 

120 PRINT CHR$( 12 ) 

130 LOCATE 11 ,0 s PRINT ‘ **************' 

140 LOCATE 11 , 1 : PRINT " * 1)2' J 973)7 *’ 

150 LOCATE 11 ,2 SPRINT' ***********»**' 

160 LOCATE 5,8: INPUT '2 3)9 10 / 79S>* 7 1H91’;A 
170 IF A<2 OR A>10 THEN 160 
180 PRINT CHR$( 12 ) 

190 A$=STR$< A ) 

200 LOCATE 3 ,0 : PRINT A*+’ l\ 17*/ F 17*/ Z 9T9LA 7*09 ?.’ 

210 LOCATE 0,1: PRINT’, , . . i* 

220 FOR Y=2 TO 20 

230 LOCATE 0,Y: PRINT’ I I I If 

240 NEXT Y 


■5#?J tSUTST, 6®ffl35lSi; 
st, 4 igfflaia us 
iZZ, 4tAft<r£t, r te-l'2Kj 
thtJTBeepgo 3s5tf3.St, JEM 

ttmz. osrora ■'Mgs**. 

35?£ Aufeg yfvvmurdtf^s r t, 
ffl©8Li t ©BfflteiEOta 



▲ 10(1, 4 t 6C-$Klibni--fo 
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2 WJ5m£,(DRW70'7 : 7L> (PC-8001, mklK 8801S- N-BASICffi) 


1000 ' I 1 

1010 ' I 25" #9T-r5+ J <f<Tj I 

1020 ' 1 

1030 CONSOLE 0,25,0,0 

1040 RT$=** 'J?-> 4- ? *5f7?‘1M" 

1060 WIDTH 40,20 :PRINT CHR*<12) 

1110 LOCATE 5,2 SPRINT ’l-y'MTly* J 14VS 
1150 ' mondai no input 

1160 LOCATE 0,5 : INPUT *y=ax''2+bx+c 7 a,b,c ? -TUA’sA.B.C 

1170 IF A=0 THEN PRINT 'a A 0 T'Z 25*54 f'U‘ sGOTO 1160 

1180 PRINT SPACE* (25) 

1220 ' 2 j i-ahiki no hyouji ')*(•*!< 
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HUifflRiiC'&^'trosSv oms^Ativ^^ s^siZs -&© 

*isisrc<r 0 RUN^t v 2 as*5©jsg v is m<D®m%mmuT<nm<?o 
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2^H0SBB7 , D 0 * 51 * (FM-7, 8ffl) 


10 ’ *a'J / IWj 

20 WIDTH 80,25 : CONSOLE 0,25,0,0 : COLOR 7,0 : CLS 
30 R=63B0 : PI=3. 14159 
40 ’ 

50 PRINT "r-j y A El 30, N45 / 30Z -Y bx79" IT " : f 

60 LINE INPUT "9"TT?- =f-TH / 7Tl-“( E/W) A Tl/h“ r“ *1) A* 
70 LINE INPUT "9"TT?- *TO / Th“ (N/S) A 70f-"T“7H " ; B* 
80 LINE INPUT "7”Tz *tj / •7T(-'(E/W> A fjK t~ Zll C* 
90 LINE INPUT "9"TZ *7"J 7 Th"(N/S) A TLA-" x“ 21) D* : 

100 * 

110 A1*=LEFT*(A$, 1) : B1$=LEFT$ (B$, 1 ) : C1*=LEFT* (C* , : 
120 IF (A1*="E"> AND (B1*="N") THEN Sl=l 

130 IF (ftli="E") AND <B1*=" S" ) THEN Sl=l 

AND <B1*«"N"> THEN Sl=-1 

AND (B14= ,, S , ‘) THEN Sl=-1 


PRINT 

PRINT 

PRINT 


S2=-l 

THEN S3=l : S4=l 
THEN S3=l : S4=-l 
THEN S3=-l : 84=1 
THEN S3=-l : S4=-l 



AttBIT-tSfrfiiTA'f) A* L J: 9 0 


D1*=LEFT*(D*, 1 

S2=l 
S2=-l 

140 IF (Al$="l 

150 IF (Al*="l 

160 ’ 

170 IF <C1$="E"> AND (Dl*="r 

180 IF <C1*="E") AND (Dl*="i 

190 IF (C1$="W") AND (Dl*="t 

200 IF <C1*="W") AND (Dl*="< 

210 ’ 

220 A2=LEN(A*) : B2=LEN(BS) : C2=LEN(C*> : D2=LEN(D$> 

230 A2$=RIGHT*(A$,A2-1> : B2*=RIGHT* (B* , B2-1 ] 

240 C2$=R I GHT* < C* , C2- 1 ) : D2*=R I GHT* < D$ , D2- 1 ) 

250 L01=VAL(A2*) : LA1=VAL (B2») : L02=VAL(C2*) : LA2=VAL(D2*) 

260 U1=S1*PI*L01/1B0 : V1=S2*PI *LA1 / 180 
270 U2=S3*F'I*L02/180 : V2=S4#PI #LA2/ 180 
280 ’ 

290 X1=C0S(U1)*C0S(V1> : Y1=SIN (U1 > *COS (VI > : Z1=SIN(V1) 

300 X2=C0S(U2> *C0S(V2> : Y2=SIN (U2> *COS ( V2) : Z2=SIN(V2) 

310 A=X1*X2+Y1*Y2+Z1*Z2 

320 B=SQR ( X1 A 2+Y1 A 2+Z1'!'2) : C=SQR ( X2''2+Y2 A 2+Z2''2) 

330 CO=A/(B*C> : S I =SQR ( 1 -C0''2 ) 

340 IF C0=0 THEN TH=PI/2 ELSE TH=ATN (SI /CO) 

350 COLOR 4,0 : PRINT "Zf-jfi-j ./ fg 1 .) A" ; ABS (R#TH) ; "Km" 

360 END 





TH=ATN(SI/CO) 







&nzmwm&yoTjLJtuti4o(Do 

SWW«> ( a + b ) 2 = 

a 2 +2ab+b 2 

Atiia, w £©»#rc3-. 

SiB* (J 'ISfiSmT 4 HtEBt 4 » 6 

a u 3 

<r„ 835 , znyacr^ua, mmo 

£#)SWb£«jlt0aSCx BASIC® 

H8 S Q R 

5CL.IW. 


O^Ls (PC-800115#) 

1 REM KAIHEI (58.2.9) 

10 INPUT A 

20 X=0 

30 B=INT( A/100) 

40 FOR 09 TO 0 STEP -1 

50 IF B>=C*C THEN 70 

60 NEXT C 

70 D=A-C*C*100 

80 FOR E=9 TO 0 STEP -1 

90 IF D>=(20#C+E)#E THEN 110 
100 NEXT E 

110 F= ( D- ( 20*C+E ) *E ) *100 

120 G=(20*C+2*E)*10 

130 FOR H=1 TO 4 

140 FOR 1=9 TO 0 STEP -i 

150 IF F>=(G+I )*I THEN 170 

160 NEXT I 

170 F=(F-(G+I )«I )*100 

180 G=(G+2*I )*10 

190 X=X*10+I 

200 NEXT H 

210 IF I >4 THEN X=X+10 

220 Y=C*10+E+INT(X/10 )* .001 
230 PRINT YjSQR(A) 

240 GOTO 10 


105 




75mk)=ii ; £)isy9-7a / 7?Li 

v<To % cal) tm&t—r -fy-vs 
£., *<Dsm<Dm sy?-imm&n 


?'- 


©€<) IS. ' (P 
cmcbfrX 


IzIzU lOOfflk 100fp»8:£©^ 
B^ASL/Itv «Bx t*BIS5?£ffl 


TMtiV/'J^—'yU'y^U (PC 8001s mklK 8801 -N BASIC. Xlffi) 


100 WIDTH 40 ,25: CONSOLE 0,24,0,0 
110 DIM M(12),J(12),H(12,3) 

120 FOR X=1 TO 12: READ M(X):NEXT X 
130 FOR X=1 TO 12: J(X)=J(X-1 )+M(X-l ) :NEXT X 
140 FOR X=1 TO 12:F0R Y=1 TO 3 : READ H(X,Y):NEXT Y:NEXT X 
145 PRINT CHR$( 12) 

150 LOCATE 10 ,0 :PRINT - , , - 

160 LOCATE 10,1:PRINT 'ISlHiJ' - I - 

170 LOCATE 10 ,2:PRINT 1 «— '* 

180 LOCATE 7, 4: PRINT ' . 1 i i 

190 LOCATE 7,5:PRINT 'I I % > I I »" V * 

200 LOCATE 7,6:PRINT '* 1 ‘ 1 

210 LOCATE 5,9: INPUT - S5>-f 7X6YL+ yyyy ) | Y,M 

212 LOCATE 9,5:PRINT USING - #### - :Y:LOCATE 22,5:PRINT USING - ## - jM 
214 LOCATE 4,9:PRINT - SUN MON TUE WED TUR FRI SAT - 
220 Z=( Y-l )«365+INT < ( Y-l )/4)-INT((Y-l)/100) + INT< ( Y-l )/400 ) 

230 Z=Z+J(M)+1 

250 IF (Y MOO 4)00 THEN U=0:GOTO 290 

260 IF (Y MOD 400 ) 00 THEN U=1:G0T0 290 

270 IF (Y MOD 100)00 THEN U=1:G0T0 290 

280 U=0 

290 IF M>=3 THEN Z=Z+U 

300 IF (M=2) AND (U=l) THEN E=29 ELSE E=M(M) 

310 W=Z- 1 NT < Z/7 ) #7 : D=0 
320 FOR X=W+1 TO W+E 
330 D=D+1 

340 IF (X MOD 7)=1 THEN COLOR 4 

345 XX=(X MOD 7): IF (X MOD 7)=0 THEN XX=7 

350 LOCATE 5«XX, 11+2»INT< <X-1 >/7) :PRINT USING - ## - ;D 

360 COLOR 0 

370 NEXT X 

375 IF H( M, 1 )=0 THEN GOTO 420 
380 FOR T=1 TO HCM,1) 

385 X=W+H(M,T+1):D=H(M,T+1) 

387 IF (X MOD 7>=1 THEN X=X+1:D=D+1 
390 XX=(X MOD 7): IF (X MOD 7>=0 THEN XX=7 
395 COLOR 4 

400 LOCATE 5*XX , 11+2»INT ( (X-l )/7) :PRINT USING - ## - jD 

405 COLOR 0 

410 NEXT T 

420 IF M=3 THEN LOCATE 5,22:PRINT - 5i>7*> J t A t-5- ; - 

430 IF M=9 THEN LOCATE 5,22:PRINT ' =.i97-> ) t A «r-f77. - 

440 LOCATE 0 ,24 :X*=INPUT$< 1 ) :GOTO 145 
900 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

910 DATA 2,1,15,1,11,0,0,0,0,1,29,0,2,3,5,0,0,0,0,0,0,0,0,0,1,15,0,1,10,0,2,3,23 

, 0 , 0,0 


i\ *i-'«-c<7>locatexotx,***'F> 4 «r5i < 

•FM-7, 8 9 LEVEL in mklK MK5 •PASOPIA 7 9PAS0PIA 



x >^ F -© a 5 ^^. y s ®. t ©£¥*- t > sh ' eis . 

^&xttKr?Lxir, H@ciSv yuyouz, mm uv*. aeu 





Az<r>z*>^is±$xz>t>'U$> ? 
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f 0 ®a$««sjW3©Ex i 75 r 

ftrafSRx trStc t&a©^ 

n^xi(Dmm tHLS<r 0 
/M®a/JWM«iKx -&n?nA 
3PU EKMiat 

afflss^i/^ o 
©x-5'ia$tf££n^o 


CH; 

mkllx 8801-N-BASIC, \ 

PASOPlAv PASOPIA7B3/ 

1000 ' *>5it39 »7J}f 

1010 ' S>“ 1>K" 

1020 N=9 

1025 DIM TN(N),KS(N),KN# 
1030 FOR 1=1 TO N : READ TN( 

I ) :NEXT I 

1100 ' + >fl“7 ZlD'Js? 

1110 PRINT ' 7 4\,t'?1' 

U t»M = *)’ 

1115 M=0 

1120 'loop 

') 7 Mfc< 


107- 



1130 M=M+1 

1135 'input 
1137 PRINT "no. " jM; ' 

1140 INPUT A$ 

1150 IF A$= " * " THEN 1200 
1160 A#=VAL(A$> 

1170 IF A#=0 THEN 1135 

1180 GOSUB 2000:' .1 S-iOfTT 

1190 GOTO 1120 
1200 4>5-its9 ts95.* 

1205 PRINT :PRINT ’ 

1210 FOR 1=1 TO N 

1220 PRINT USING " #####, fl #####, ##########, n" :TN< I ) ,KS( I ) ,KN#( I > 

1230 NEXT I 

1240 PRINT:PRINT USING " *3"99T ###########, H" :KN#<0 ) 

1250 END 

1260 DATA 10000,5000,1000,500,100,50,10.5,1 
2000 +>5i5i9T-r 

2005 KN# ( 0 ) =KN# ( 0 ) + A# 

2010 FOR 1=1 TO N 
2020 B=FIX( A#/TN( I ) ) 

2030 KS( I )=KS( I )+B 

2040 KN#( I )=KN#( I )+TN< I )*B 

2050 A#=A#-TN( I )*B 

2060 NEXT I 

2070 RETURN 



Tie<7)^5- S;* LT< fc'S I'J *MZ-80B, 2000 


900 CONSOLE C80 1220 PRINT ' * | RIGHTS! 1 ' +RIGHTSCSTR! 

1000 REM T>2.i ta 9 99tT 1225 PRINT RIGHT* ( ' , +RIGHT$<STR$(KS' 

1010 REM Vi>fc* 1227 PRINT RIGHTS! ' •+RIGHTSCST1 

1025 DIM TN(N),KS(N),KN(N) 1240 PRINTlPRINT ' »3'9U 'll 

1120 REM loop’ " a 2000 > RE^9»l5i9»/ 

1135 REN INPUT 2020 B-INT(A/TN< I )> 

1160 A-VAL(AS) 2040 KN( I)-KN< I )+TN( I )«B 

1170 IF A=0 THEN 1135 2050 A=A-TN(I)«B 

1200 REM Mxtw9 Mb' 

KTN<I)),5),5);\I> *; 

[ I ) ) ,5) ,5) j * , *; 

^*<KN<I>>,10>,10>;•I>• 

*IGHT$( * *+RI6HT$(STR$(Kf 

•XI 





J -7~? 


(ncr^ZP) 

A;tl Sx-57® 

CffiSS. A 

stv feofflucAatfafiBB# <o m 

itfoo 

MW<i5 ! -5>(bAtltmr)Z>£:. Hi 
DK 

2v 3 •••©«?«, il®A>M-C 

*SHg®sc, 
ff230®R©fe^SAS(i;. 
zpv^giimx^xmn . 



Ae^feji-e-T 


<«757> 

A3tjffl®^Bx fft757ffi«dtnL; 
W, iBSffl^lSAALeillCQ 
ym<? 0 zfDZKxr^tiV I& 
®S7m£>atfe*£«ji£$UT:. c 
n*s*ci/Cx ^7®**«a«> 
■WtfBx x-S'ffiSn-? 
ttSwiiccA 

®®ic*itSs sc wnoissm 



A&Tftlt&Z ' ‘J * f-x-f 


OrniKW) 

®caua\s*. smsomts *6<o 
h\-m(bmm£Tn 0 

®n® 

(757ffl«ft<tW;TWo 
^i)®^AIS3 0tfev A£U£ 
5^®«©s**mi»*r»fctt- 
r«s<x cns®e*u-Dfc/uS» 
PCBUC^Bv B/TT^Sc^oCUr 
W3W. ' 

^sbztiMuz{,^r>i-rm 0 


•J * 

V 

— — ‘ 


Ai-t, 





z>Li (fm-7x 8S) 


10 7 17 7" =57 

20 WIDTH 80,25 : CONSOLE 0,25,0,0 : CLS 
30 INPUT " t '-9 7 =1.77 “ ;N 
40 DIM A(N> ,B(N) ,D(N) ,E*(N) : SUM=0 
50 ’ 

60 FOR 1=1 TO N 

70 PRINT "NAME " 5 I , : INPUT E*<I> 

80 PRINT " DATA ";I,: INPUT D(I) 

90 SUM=SUM+D < I ) : PRINT 
100 NEXT I 
110 ’ 

120 FOR 1=1 TO N-l 

130 FOR J=I+1 TO N 

140 IF D < J ) =<D ( I ) THEN 160 

150 SWAP D(J),D(I) : SWAP E*<J>,E*(I) 

160 NEXT J 
170 NEXT I 
180 ’ 

190 FOR 1=1 TO N 

200 A < I ) =D ( I ) /SUM : B < I > =100#A < I > 

210 NEXT I 
220 ’ 

230 PI=3. 14159 s K=.44 : TH=0 : X0=456 : Y0=100 : R=170 : Rl=140 
240 CLS : CIRCLE <X0,Y0),R 
250 FOR 1=1 TO N 

260 TH=TH+2*PI*A<I> : TH1=TH-. 1 ! TK=TH-PI *A < I > 

270 GX=X0+R#C0S<PI/2-TH) : GY=YO-R*SIN (PI /2-TH) *K 
280 LINE <X0,Y0)-<GX;GY> ,PSET,7 

290 C=I : IF 07 THEN C=I-7 

300 PX=X0+100*C0S<PI/2-THl ) : PY=Y0-100*SIN < PI /2-TH1 > #K 

310 PAINT <PX, F'Y) , C, 7 

320 CX=INT ( ( X0+R1 #COS (PI /2-TK) ) /8) : CY=INT < (YO-Ri *SIN (PI/2-TK) *K) /B> 
330 LOCATE CX,CY : PRINT I : LOCATE 0,0 
340 NEXT I 
350 ’ 

360 PRINT"No. Name Data (7.)" : PRINT 

370 FOR 1=1 TO N 

380 PRINT USING "## & ?< ####### ##.#"; I,E$(I) ,D(I) ,B(I) 

390 PRINT 
400 NEXT I 

410 PRINT T AB (12) " SUM= " ; SUM 
420 END 


(fm 7, s^) 


10 7 <l»“ 7 9" 77 1 

20 WIDTH 80,25 : CONSOLE 0,25,0,0 : 
30 INPUT "f*-9 J 377 " ; N 
40 DIM A(N) ,B(N) ,D(N) ,E$<N> : S=0 : 
50 7 

60 FOR 1=1 TO N 

70 PRINT "NAME ";I,: INPUT 

80 PRINT " DATA " ; I , : 


CLS 


M=-999 


E*<I) 

INPUT D ( I ) 


'J7 h«!< 



90 S=S+D ( I ) : PRINT 

100 NEXT I 

110 FOR 1 = 1 TO N : A(I)=D(I)/S : B ( I ) =A ( I ) * 100 : NEXT I 
120 ’ 

130 FOR 1=1 TO N 

140 IF B < I ) >=M THEN M=B < I ) 

150 NEXT I 
160 ’ 

170 DY=0 : X 0=350 : IF N<7 THEN D0=16 ELSE D0=12 
180 CLS : LINE < XO, 4) - < XO, 195) , PSET, 7 
190 FOR 1=1 TO N 
200 X=250*B(I) /M 

210 LINE < XO, 12+DY) — ( XO+X , 12+DY) , PSET, 7 

220 LINE -<XO+X, 12+DO+DY) , PSET, 7 

230 LINE -(XO, 12+DO+DY) , PSET, 7 

240 C=I : IF 07 THEN C=I-7 

250 PX=X0+1 : PY=12+DY+D0/2 

260 PAINT (PX , PY > , C, 7 

270 DY=DY+2*D0 : CY=INT ( (DY+12) /8) -3 


280 

LOCATE 34, CY : 

PRINT E$(I) : LOCATE 0,0 

290 

NEXT I 



300 

’ 



310 

PR I NT" No. Name 


Data C/.)" : PRINT 

320 

FOR 1=1 TO N 



330 

PRINT USING "## 

& 

& ####### ##.#"; : 

340 

PRINT 



350 

NEXT I 



360 

PRINT USING " 


SUM= #######" ;S 

370 

END 




(fm 7 , as) 


10 ’ 9“ 77 

20 WIDTH 80,25 : CONSOLE 0,25,0,0 : CLS 
30 INPUT " r ”-9 7 37,0 " ; N 

40 DIM A(N) ,B(N) ,D(N) ,E*(N) : S=0 : M=~9999 
50 ’ 

60 FOR 1=1 TO N 

70 PRINT "NAME ";I,: INPUT E$ < I ) 

80 PRINT " DATA " ; I , : INPUT D<I) 

90 S=S+D ( I ) : PRINT 
100 NEXT I 
110 ’ 

120 FOR 1=1 TO N : A ( I ) =100*D ( I ) /S : NEXT I 
130 5 

140 FOR 1=1 TO N 

150 IF A ( I ) >=M THEN M=A ( I ) 

160 NEXT I 
170 ' 

180 DX=0 : IF N<7 THEN D0=48 ELSE D0=32 
190 CLS : LINE <630, 170) - (240, 170) , PSET, 7 
200 L I NE- (240,10), PSET , 7 

210 XS=292 : YS=170-130*A < 1 ) /M 

220 FOR 1=1 TO N 

230 XE=292+DX : YE=170-130*A < I ) /M 

240 CIRCLE (XE, YE) ,5,4, , , ,F 
250 LINE ( XS, YS) - ( XE, YE) , PSET, 4 
260 DX=DX+DO s XS=XE : YS=YE 


no 


270 IF D0=32 THEN K=4 ELSE K=6 
280 LOCATE 35+ ( 1-1 ) *K, 23 : PRINT I 
290 NEXT* I 

300 LOCATE 26,23 : PR I NT" No. " : LOCATE 0,0 
310 ’ 

320 PRINT" No. Name Data" : PRINT 

330 FOR 1=1 TO N 

340 PRINT USINB "## ?< S< ####### " ; I , E$ ( I ) , D ( I ) 

350 PRINT 
360 NEXT I 

370 PRINT USING " SUM= #######" ;S 

380 END 
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100 REM ?-(□;< t“ l>9+a 9 (MZ— B0B/2000 > 

110 INPUT "f' -•}/ It-f 9'Y:*9 rt ?"5ND 
120 N=0 a D I M DN*(ND> ,DB*(ND> ,DA*(ND> 

130 PRINT CHR*<6>5"** 9-1 3D T"D9+a?" 

140 PRINT "/2a-" SPRINT " 1 ) f “ -9 2a9939" 
150 PRINT "2 > t” —9 fca9D"" 

160 PRINT "3>Q-F" "SPRINT "4it-7* " 

170 PRINT "5) V— F" 5 PRINT "6>t"- 9 99D" a " 
180 input "rt‘7a*« * — (z> VT-nr-w ";A* 

190 A*=LEFT*(A*, 1) a IF A*< “ 1 " THEN 130 

200 IF A*>"7" THEN 130 

210 C=VAL(A*)sIF 06 THEN 820 

220 ON C GOTO 230,320,440,520,590,730 

230 PRINT CHR*(6) 

240 INPUT "79 1 < *9Vrt END) " j NM* 

250 IF NM*="END" THEN 130 
260 INPUT "t “ 'JO |Y“D3"9 "iNB* 

270 INPUT " j AD* 

280 INPUT "ZiV > 39 OK < Y/N> ?" j A* 

290 IF A*<>"Y" THEN 230 

300 N=N+lsDN*(N>=NM*8DB*<N>=NBS 

310 DA*(N>=AD*8G0T0 230 

320 1S=1: IE=10! IF N< 1 THEN 130 

330 PRINT CHR* (6)8 FOR I = IS TO IE 

340 IF I>N THEN 420 

350 I*=RIGHT*(" "+STR* ( I ) , 3) 

360 PRINT I*; " > " ;DN*( I > i TAB< 15) ;DB*( I> 

370 PRINT TAB(15);DA*(I)8NEXT I 

3B0 IS=IE+ls IE=IS+9 

390 GET A*8IF A*="" THEN 390 

400 IF A*="E" THEN 130 

410 GOTO 330 

420 GET A*s.IF A*="" THEN 420 

430 GOTO 130 

440 PRINT CHR* (6) 

450 PRINT "StaFTFa □-)•" OK? (HIT ANYKEY)" 
460 GET A*SIF A*="“ THEN 460 


470 ROPEN/TS I=Na INPUT/T NN 
480 FOR J=1 TO NN8 1=1+1 

490 INPUT/T DN*< I) , DB*( I) , DA* < I) sNEXT J 
500 N= 1 8 CLOSE/T s REW 
510 FOR 1 = 1 TO 100s NEXT I s BOTO 130 
520 PRINT CHR* (6) 

530 PRINT "7JTT-/ !•- t-7" OK? (HIT ANYKEY)" 
540 GET A*8IF A*="" THEN 540 
550 W0PEN/T8 PRINT /T N 
560 FOR 1=1 TO N 

570 PRINT /T DN*(I),DB*(I>,DA*<I)aNEXT I 
580 CLOSE/T 8 REW a GOTO 130 
590 PRINT CHR*(6> i "## V-F" 

600 IF N<2 THEN 130 
610 FOR 1=1 TO N— 1 

620 D1*=L.EFT*(DN*( I>+" " , 12) 

630 FOR J=I+1 TO N 

640 D2*=LEFT*(DN*(J)+" ",12) 

650 IF D1*=<D2* THEN 700 

660 NM*=DN* (1)8 NB*=DB* (1)8 AD*=DA* ( I > 

670 DN*< I >=DN*( J) 8 DB* ( I ) =DB* ( J ) 

680 DA* ( I ) =DA* ( J > 8 DN* ( J ) =NM* 

690 DB* ( J ) =NB* a DA* ( J ) =AD* s D 1 *=D2* 

700 NEXT J 
710 NEXT I 
720 GOTO 130 

730 PRINT CHR*(6>5"*# f" -9 r?V~ a " 

740 INPUT 32* fcF/ A“ D3" ? " i S 

750 IF ( S< 1 > + ( S>N> THEN 730 

760 IF S=N THEN 800 

770 FOR I=S TO N-l a 11 = 1+1 

780 DN* ( I ) =DN* ( 1 1 ) a DB* ( I ) =DB* (II) 

790 DA* ( I > =DA* ( 1 1 > s NEXT I 

800 DN* DB* <N) =" “ 8 DA* (N) = " " 

810 N=N— 1 a GOT 0 130 
820 END 
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590 PRINT CHR*<12>;|»* V-K* 
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lee rem************************ 

110 REM* COMPUTER NAQQARAH * 

120 REM************************ 

138 : 

140 DATA 9899,9898,9998,9989 
150 DATA 9999,98.9 
160 DATA c8 . 9 ,0898 , c 4 , c8gg 
170 DATA 9999, 9898, 9998, c 898 
180 : 

1 70 DIM A*< 14) :X=RND< -TIME/3) 

200 DEF FNR ( X > = I NT < RND < 1 ) *X ) + 1 
210 PLAY" S0M600T150L1 605" 

220 : 

230 FOR 1=1 TO 1 4 : READ A*(I):NEXT I 
240 : 

250 P=6 : 8=0 : GOSUB 310 
260 : GOSUB 310 

270 P=4 : S=6 : GOSUB 310 
280 P=4:S=10 : GOSUB 310 
290 GOTO 250 

300 REM <SUB> 

310 I=FNR< P) +S : PLAY A$(I):RETURN 


-<END OF LIST) 


I REM************************ 

1 REM* RANDOM CHORDS * 

I REM************************ 

I X=RND< -TIME/3) 

1 DEF FNR<X) = INT < RND( 1 ) *X) + 1 
1 PLAY “08'' , "08” , "V8“ 

1 T=FNR< 224) +31 :L=FNR<64) 

1 A=FNR( 55) +30 :X=FNR<4) 

I IF X=1 THEN B=A+4 : C=B+3 : GOTO 650 
IF X=2 THEN B=A+3 : C=B+4 : GOTO 650 
1 IF X=3 THEN B=A+ 3 : C=B+ 7 : GOTO 650 
IF X=4 THEN B=A+4 : C=B+7 : GOTO 650 

1 PLAY"T=T ; " , “T=T ; " , “T=T ; " 

PLAY " L=L ; N=A j " ,"L=L;N=B;" ,"L=L;N=C;‘ 
1 GOTO 580 


7/3/ 97 V 1 )? 


1 REM*** 
1 REM* 

I REM*** 


3 X=RND< -TIME/3) 

3 DEF FNR < X ) = I NT < RND ( 1 ) *X > + 1 
3 PLAY “08T 120“ 

> : 

3 DATA 04c , 04d , 04e , 04g , 04a , 05c , 05d 
3 RESTORE 780 

3 FOR 1=1 TO 7: READ P*<I):NEXT I 
3 : 

•I P=FNR< 6) 

1 FOR 1=1 TO 3 
3 : L=4: GOSUB 940 

3 : L=8: GOSUB 940: GOSUB 940 

3 : L=4: GOSUB 940: GOSUB 940 

3 NEXT I 

3 : L=4: GOSUB 940 

3 : L=7: GOSUB 940: GOSUB 940 

3 : L=3: GOSUB 940 

3 : L=2: GOSUB 940 : PLAY" r2r * 

3 GOTO 820 

3 REM <SUB> 

3 C=1 : D=FNR< 2) 

3 IF D=1 THEN C=-l 
3 P=P+C: IF P>7 THEN P=P-2 
3 IF P<1 THEN P=P+2 
3 PLAY " L=L ; " : PLAY P*<P) 

3 RETURN 

5 REM <END OF LIST) 




178 DATA L 1 6gggg , L8gg , L 1 6ggL8g , L8c g 
200 DEF FNR( X )=INT( RND( 1 )*X )+l 
560 PLAY'V14' . 'V14 - . 'V14' 

590 A=FNRC42 )+30 :X=FNR(4) 

660 PLAY * L=L ; N=A ; Z ' , 'L=L;N=B;Z' , •L=L:N=CsZ‘ 
760 PLAY •yiATlZOSOMZSS’ 
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10 FOR 1=1 

TO 1000001 STEP .5 

20 PRINT I; 
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30 NEXT 1 

40 END 
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Tiaa#© , fe®o «^&»T&gtfa©5Wrgy 
feU&aiStf. ^CLTSSBtfS^rfe. 356# 

b#>B$Bcsresttc r ^s«©ffl©^u^j as. 

^T.^Sc©srua;oo *n£Bp£<ba©r?o 
•^n&sia. a^uziACtb^oyjw^-^ 
mxizi wny^s^tt! saiA©#£:sio*i5# , & 
unam4a 0 -&ma$iz. *^«©f 
tastfsa©'??. 

Sg\ fefcOBASICTCOTk Qj-7i7 ar? 
LH%^^ £I@IEL£6. to-g. 

-r>9-7U5>-©£5e. 
5 1 3Y5 L 3n / taur. g-'CCRUNtl^WCia 
©tfa©©T\ <fctti>a#«x«r»9S9-o ***.• 
iiRUTr^EMBffl^n^/^^^. v-*7a 
y^tiagyizieiuiey. □>/w^-gft©-9- 

^*ttffloai'tsifflarca<. nab##*** 
g-„ rg-*'5. -«Eia. ^n^ssias-Ecc 

a'fifflsniusfflrgo 
as. mfflCt*og-nia©>/K^-^urar 
s-SittizoiATia. wmz^nwbtf\,\^(D 
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yv-yoy- oxs. ov-yziy 

U->£l,\-3©ISv 77 □ >©E«ii # aat. 

PC-8001 «£& SW^JKWffEBASICT^-A 

u^-TDA^ffBSUTfttmri,^ s*f© 
ADAA^zzizAnsztisr^is/uo 

0K57l?-7©77 
nyijy 1 =fes mmottfyyay 

7^BA9S-e/u. -feLAo-OfclEfcEBiiS*!* 
Au 0 MS§§©7D77AI3. 77 

□>©/ \-K©iastt®gSf?liI£f$ori \-575 
r7o MZ-2000CIS. MZ-2OOOE0V 7 htAflT 
’PSttBZrtBOx X 1 ©VAhttKlSatJ/u. &=& 

*jEx bi;w, 

<K rcS) 

PC-6001T7D'yt:-7 , -<A7K777IS 

ifccg«7s©r^. miz, yvys>- 

is*ffl©t>©u*tfE*;0:i\©-cg-tf. 

(» 5 H • Sffl**) 

PC-6001 IS. ^©3= £7137^77 ^777£& 
usASitisrs^tt/up K 777 ©s#c:v -yg 
(DZtitt5ZZ<1£tS\,\o 

• PC-6011S5 SZLZ'Vh 

• PCS-6001 R N60ffigBASIC*}-M>y7 

7u>9— c^ns. pcs/u-xisgAt.-tz 

yhaz.y 78i*g topisns^iirojgaiizfet^i/ \ 


nec*©is 7©7 
U>7- £t;!.l3PC-8211 ) £>PC-8023-CI3 i fc<!lc£ 
•0. EPSON0MP. FP. Rpa^oCS'U-vS&d 

t,gx.^7 0 j&eu mmyuyy-inwa, a& 

#&. 777 Y'V 7 df 1 ? 777 -. a»€ffl;tJ*ti 
«fc- 5 <!;UC»SCx 7 U> 7 -F* 3 ffi© 7 l 7777 - 
7 x 7 Ly- 7 -t©D - 1 
&©©r. 3 ;c>jE<jS 0 u«ux¥# 0 i¥£nru 
^yzt-tsfa'o&y o 


<M ra> 

I5<I3. PC-6001 SGotUa^o 1 KP4I 
isagorust. s 7 iimn 75 R<«io. 
feotECt. ^-S-CSHK&Oa^o Sl\ 
U«i:- 5 / 3 \rU 3 : 7 #o 

( 3 IJRS 5 - *»^Q) 


77=l>£ft&P E |®o TlASt. t£©777D7 
□t'V+t-^LSI. 7tU-IC££tf^8&U77=) 
>$i$t,M<s:oi:^^77syiz5Ri^ria^ i o^-ts 
/vo eiffu 77=)>© 

oTUStv 77=3>©4©i^i-«'£!©ffl»JtfS<; 
«9<Jg T. ami©BJBC30!O*^©T«*7tfiC 
<£<* 1 ^, 

<M Pcg> 

P0PC0M J Pg#©77=37Si£C©o‘nA 
37-L>7D77£>l3. ©AuSA7?rEDBJ 
L/r&£l3£. /J\£?rA2)UT:iSl\tt£l,\ 
©■C^-^o (=■* • «ffl3t») 

'J'X^rAEUTlVSEUTfc* ivwrSC#* 
t\«e/uo BASIC779-7U-9— 13. /j\7rcA 
usT^tst^cis. 
7 ^i:A 7 ?c^ML>ru^ 7 ©rs ^isra&i; 
axD&y&ynyyujy hcss©^ 

£7U PRINT7&7©" "©^7(313X7^7 

•977£nTi,\3££. «D#*;*xycfT5c/u 
r<e$Uo cni3Bae^snsa»Ts*«\ 

^Z^J^riJSZ/uCUSAc!:. 

IBM 7. 

c®i&s&&'cg:. o 







=E=y—yyn-*y 


□ PC-8001, 8001mk II 



pc-sooit-^— 

T^L/^o 80»©CPU‘CBs#$fiBCN7K— K-A 
attrtraraw&iN* ounzcfc-xCs we©#— h# 

*07f?— hC»K*n'a\SJWZHMB^ tt%tZ3 

BttZtt&dtfmsKSTay^LittC Bx 

z/u8<t*cfcx 

pgj^ffiiiseia. ®«i@i>hu- 

PKbXSSI^^x-^ *©S2S®»5« 

*-#-K***> 


©Jp-7K-K©^^15>®T^ <-&© 2> 

©&H 0 F 7 B 

®&u (Mizzi-;ug-nis^v| 

® Bs C N P N E, H, L 

ii^fflfefflBv ttizmm <-e©i> <t®Qv 
Ve. £©c>fflt>s ZfflJL-^^riSv T<u1t7;L- 

?y<tuz <^©i> sopumuruaffs'ctfo 
tet?u stEs-dfisfrujE* & h 

0 3 A 6mi£tt5®gZy-7JU-3 L y£0-)LUZ 

©;i/-?>?ffiiv t<c-t©ffl«ffiai,M*6cia 

<-&© 1 > » W„ Sfcfcx <^ffi 1 X <-tffi 2 > 

t-fev fenS^F-®C RT.\ I 3—f\"j79Z> 

fMBBft-^'CUasti/uJ&Bv iG&BMjUlX 1 X¥ 

: < 3 > 


< 1 > 

®dF-7K-Kffl**'-p>«7-5 <^© 1 > 

©&H 0 F AC 

®&L OHIZZi-JU^nK^©) 

®Bs Cv P N E^ H, L 

^:©^r-ffldfP^7-9-D-Ktx AU5?75MZ 
•fe'vhu mmzcvyyy c^vu-yyy(Dz 
tVs /30-5 &S a i/py5>-±.v(DmBmmtf & 

H F Ca^S?) 

CY7^1 CUIX AL/XXS’-IZ&H 0 0£ 
An^^o > 


®*-Am?5)b-7 

©&H0F7 5 

@«u cmizz)-ju<rntf£©) 

®A V F 

& h o 7 b Fmmft5(Ds ^x^vymyyjv 
-?y%s <ymuo-ji,v-z>ji / -7iz®ozis& 
yju-yye>(D^iSi^ cvyyyyw zm-dizz 
t&mmzizt&z'aion&yySs &wa&— 
^>t.(DyoyyLA'jy-yz^o 

££3T\ 7 mS(DZ(D3-y—- 
Iztf, y-lS7077lSZ,l5.£.X\£ : Ty*-<DZ , 
4 V 6, 8&m t ?ffiflfl©g-ii^i \mh^xz>&7 
\z v3«ea\ nfit«s^r— ^ ass 


©JF-A 7J®*5)i-7 
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3JB5t£x 

&bO:TC7o7xbx£^l3xZ80ffi I Nifc^SE 
3p-7t\-K©A#TK-h£B5gbb-tz7b3: 
~$o m i ©cfcoiz &H00/J5&H09 ^rffiioe 
©TK-h^ai^^rsnr®^. <*fa>7it-hc»n 
§x-9t.v *©£*#<5nriAS*- 00 * 53-3 
fc^htfOCaOS# OstZ&s xbdp-ffl8tf 
tK-s&h o i izsin-sx-^ 
is & h f Etaostfi. astttv yaT^upe* 
^©^Sffltf'Vh/ *9-b©!ISd«f57t0y:lvr>tt 

•w. 



©7u>9-e i 

©&H 0 D 6 0 

0Ab&*9-=3»i]-K 

® A n F n B. CL D, E' h v l 

Abb77-IZv ttCQ^SSaPD-fitO— Pb 

xasa^bu*#. thtnmtf7uy j p--e&z> 

tttVKtBWttx $fcJ3ffl^ &H 0 2 5 7§iffi75 

^^scRT^ffli cmmv?r 0 

etwo^ ^u>^-c®^5=i>hn-^zi-K 


< 5 > 

©7U>9-CLFD-K®26‘0x miisttz 
©&H 1 2 3 A 

©«b (^CD-ju^nis<Sb) 

®B' C' Ds E, H n L 

□HLtfStx AJ^-CLF O-O^-r— 
h?) □-R££xT&fr£f©D:fc*\ ^ffl&CYbx 
c7® i eury^-bbs^o &hod6o»5© 

7bX-7b£ffixr L FD-K^SISZtfev fe 
c*Hx <i©Jb-7brtK tcz 
+ t7il/-5 1 btb'C & H 0 D 6 0 gflS75fflJl/-7 
b£3Hi/bTb^#x^iS9Mib;fe«i£b^ 
raKsnTi/VRtf; A*©x-7^m^b^xt7 
s«aa£x ^rb^xo 

< 6 > 

®7?5iJx-7©mA 
@&H 5 2 E D 

<3>H Lbb*75'-7b=7?5iJx-bffltg^$n 

®5A'C©bb79-©P3gffilgn5 
SSBttbC^tUHM*^ tB*bSlVSt?5lJ 
^□-h*r#szAurs$x ^©$tiiStffi^H Lb 
b'b^-'XbCn-KbTS'S, ^©iU-^b^© 

£eu c®£fc^#^satf3oa$s&tf. 

1) 7^5iJx-7ffl«^IZIS, 

metis,#) c % & h o o £S<o 

2) -@Eft7rS57?5Ufflft&ISb55b:¥S 

•cr®5 0 

3) 355# b©x & H E B 4 9 glffilZ &H01- 

& h 7 Ffflii©, ffg©x-7^»^5^r 
a< 0 

< 7 > 

©x^fbbii®©/ \-K=]tf-« ts 
@&H 1 2 4 A 

®£b (miZb-JL7niS7b) 

©# / ^T:©b5?7'g-©ws^#M#ns 
SB£CRTBBEaES#n'Ct\S5 ; ^r7hH® (7 
«^5^i?xb'9-7xb-<'Vb7t./3\<^^7) 
^©SS7Ub5?-ChBZ]b^7o iilS. H 
®©*±©It75x bba-iLiUbrofi^rr 
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ZiS^fvo &(D1zlto 0 

CMT ( ti -fey h ) Atii^J 

CMTlS.x—95®lffl5 1 'v7'8251^?furv x~ 
-StoaSHMffoWStfo ^(DlzHbs m&9-5> 
(Dm&miztmio&yyjb-yycDizMz, y^y 
ttnzn(nymz^z.yvy^yyttt)(b)\j- 
0 -ym Ut-hO^SDHWD^MUU-^O 
n v o f f tticisboii-yytfmm&nz^ifo 

< 8 > 

®8251CU-fe'Vh€»W* 

©& H 0 D 1 4 
@ 81 / 

® F s By C' Ds Ey H, L 

8251 £A£y ffla<^5#©t-KCK)£?3lS[! 
Cy ZOJU-^y^D-Jl/UZs Ute'i/h*#W"C 

< 9 > 

©825 1 £ C M T y-y hbOT- K CSSf/t <f£ 

©&H 0 C 4 6 
©&0 

®By C „ Ds E v Hs L 

825l£CMTtii;d ; E— KIZKSU t— ?— £0 N 

jzueasty &H0C69 ysmm&zn-yiz 

av^o yyi\z <9> wi-yyiso-riift - § 

££C<*0* cmt izx-^^tbtir^^^o 

<10> 

®CMT / \ n x— 

©&H 5 ED9 

®Hyyy-9-=y-y9m-p^yy±Miuv~ 
Lyyyy-=m, h/wk 
6yy.y.y>-=y—s>Wj^y%usu wk 

. EL/55*-9-=Hy Tfi/Wh . 

® Dy E 

mzmm£yvs.y-?%, yyym^zy-cDwzi 
fyptmk<mt)yx*-3'yhz cmt emau 

7K-Ly-HS6007K-T^o 
<u> 


©&H 0 C 2 E 

®By Cy Dy Ey Hy L 

^-y — ffiOFFy 35^0*8251 CD CLOSE 
^- 0 <8> ~ <11> ?IILB-il/Wy CMTICx- 

<12> 

©8251 «CMTA»E— 

©&.H0BF3 

®«U 

®By Cy Dy Ey Hy L 

t-Ktf r At)j ■c»*2tW9HSy<9> co;o- 
yyz mczy, 

<13> 

©CMTtfSx— ^AE^-S 
©&H5F6A 

© h yyyy-=9-5>*a-\^ y^z>zy?>y 
t'JHMKDStBlWSiifi/ W h 
Lyyyy-=m, Tffi/Wi- 
@^zcpyyyy-(D^ymm-&n^ 
yyymtzy-o L^y^tnamcwm^ 

y 0 95l3i:CDy<8> ~ <11> COilHiCD^S <9> * 
<i2> Cy<io> ® <i3> \zm^nx^zzzAzm 

HI PC -8001 

BASIC SOURCE PROGRAM LISTINGS 
THE WHOLE ANALYSIS OF Veri .0 SI .1 
El PC -8001 

yyymBmi xy^yvo 
8 MR & — mmyyi i-yyvy^z 
cmj-y ^myyyu^u-y^yymzsmD 

EIPC-8001SSW5? 0/OgUfffl) 

(i^aw) 

BAsvyuyy upom®&, ^ne>ymn&a 
#s*5H*U abceeu mn^h-yy^mm 
y&y 0 i y 2^§Iico^r^o 

ISy 12^15Br^o E3 
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I ©CMT£CL0SE<T-5 




<v3>m*>zi ztimiz r 


• 3EJ 1 1 liWWH* 

x*t*±- sFt m 


5* S* 

■■H 

<7* h -SflT-^ 


££lfSi>rfe>r 





cmr a hpdc-^ts r ttftxiz t^cD*u 

75j £a3BUUT££o 

®ffiS±fc€9«Cfc«iftfSa! 

©zj-vji/ ■ 

fcsrssa 

Bnek»*#Xuei99'«®as 

— ££ict>©t s»3i>T*;So 

CnSCDSfftt^-cg] i CDdF-CDE5y©6i!IC 
«e>A/c©§ 5 fj 4 9j©*-©af©±a© 4 t>& 
«RLV 

©jEaatfcwBisaaeot-auv 

■C2E^e©T, **U\BWB€j«entSHife»B 

u#u tbscst 

n®©^©©®affij 8©r»3 0 

Zo© tB«»©-CU*-5<i:^ 

r 230 FOR 1 = 1 TO 100 STEP 2j 

tixsxtffcofcti/r-, *n*?z>tf<o 

r 230 FOE I T 0 10STP 2j 

ril,£5J:lW5^ tZr»UTL/ST 

•£» sasasccsffliiotBiEastas^Biz 
3>IT'Cai^ r SB7?©^33^nSj i&si-Ii:# 
&<&£©t\ *©AS^^s**ntf<!>&<a 

€>©r®^o 

bs. ^cf9ffl^tfr»«snc3{rfeL4i8t'^ 
±E©fflBtcE«R-eei/j(E^ 0*0 eg i^*) 
tfSCttx -efflX?fflCiMIZ m t □ T?fl-v)[, 
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> \ / ( 



si, zn-c r m*5zisnwij ©a*8*/uE£« 
i\%mt.u<u-oi5.o 

©£©<p"i + i * ©Stfl^lzA-sziCUcJ; 
■5o 

"1+1 *t*iw 

&mxtzw 

atfMOEx dc»<s 

"1+1=2" 

mmz>z<z*Ufrzfr&z>o 
i ^□>tn^©(affiUB«®sesizfiuiasr 
f*®?3<»E<j3^nraj'0x £<izpc-8ooo 
5/U-xs^ s^©nv:3>£®]7L'c©-2A- 
%>"jO (basic) z\,\^z\y^D.-simmm czn 
m£Krt®^BASlCt«<©i:£g-£) ISB 
JS®Basizfi<a*j:-5Sji5nT:t , i*o 
UtflJi^ciiBSdotStf-Sffitx CD «#U 
S CD ^utr&iz E) 

«+-T77U'1'IZ£*.© w 2 'j&ttt<S*tt:l/V3£ 
^■3BW»St\ (Zn&© El *t> El +HW^T 

^F-TK-^Silffl 5 f345U©S©aiC®3)* 

"1 + 1 =■" fcfcV3*m2OTO>Be*riJft!e 
ljT, f3»fcSC58U©igo 
antfc otottx 



77b7±©a^twraas©esffl«s7i2]^ & 
a*nTt\stt'-5Wi*»?ia«»5-ca5a. 
Q*»X x-<77b--i'C3£?£SL'C i &v ;&n£ 

ftra^waakoreeiB (lsi) 

©ffl^o 

xi'7777lzS^^n^7lzd;o-c$<$^^iJ^ 
i±sdwtABzf»!E^T , c>5ai^ina«5atv 
^ffl^is, 0 1 ffl£Sffi^-E5U©«®S7^ 
IZ®3 I RETURN I tt W-tfJSr? llASo 
D8:9v <3© I RETURN I ^r- 
tv Bi;©T:xY7777IZ»n^«^7${$:c!iI3 
8#^ ${$«g^©ss-y:S©r®So 
I RETURN | dF-B^-7lt-K±IZfeo 1 'DISo'O s 

^niasii© 5 fj 45ij©^-^©ST© i~reti r 

3BS„ RET IS RETURN ©BI§I\ -£©*£0:3; 


HI 1 +— ©|£5IJ( PC-8001 J.-- YF-X • -?-ilT >\,< t *)) 

. | ,., | ,., | ,.,.| ... |. ... ! 


{TfTmmW’A'Attsi-: k fr- H_ 

1 HOME jj 1 l| - || INS I 

1 Cl.H j| t ,; - ;■ DEL 1 

( ESC ]^Q^~ |[wl ][e ][r 1(t ^ ][7~j|u +i ]fi |[o^ ][p IjTnfT^I return' 

□EQQ 

SODF:^mQ0CT:f;i!>J[%j 

M ■ II «n 

1 shift hA\ ik Ik k h Ik 1 flTlpklfk sh,ft 1 

I'M HE 

r~]i : ) 

ICRAPH j 

EFHP 
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^£<iq-ra 53 o 

#?'£.&£&&& a v @ 

^tst#^© - ^ ra— **©*-£ 2 ®ito 

»ri\ 50 r® 5 o« 

*C 0 U "1 + 1 =■' £lV 3 » 5 x«* 1 *iS»<i^ 


I RETURN 
P'JV / 

’£oBf' 0 {qi i fc£«I 5 &© / 



¥ * 1 

¥* 1 ffl^oCv 


*c»siiL/earcttatw „ 

cnKv mo>©fP!a©uff£tfii¥t5;tf-5 

to 1 i^t/tvi] 

MtfttJ-oCDIz (tOtt>g©a^Blg 
th)£i?jz\ytmv¥m£-3i5.o 
iX'jny%,aNSte&b\ 

"i + i =■" 

a^UT tRETOR N]*— tfal»fEl& / tV=l 
XD^ftCtoTSv 

r lSg©SSSIZ "+ 1 =" fcAftuBisLVj 


. — -tux^tuTafP^nv §itt©e>nr 
illOi^WSt "+ 1 

^nrasL^utsoTb^©^^ 

“ClSv * i +i= 2 " &$^IZ 5 ^t:£fcSCB; 

£Z>b£5<5;i\;tt? 

WCB, @*-£®D<fCv"?" 

(Dlzo 

oafoswufrcass. 

" 1 + 1 " tUo "?" 

aWCfc^Tlte©**. + 1 " 

&y%mz : ?'<' 7 ju-<\zsmtsv 2 >(Dvm 5 >o 

^ S 3 tt \o 4 &&<& 

ES®E*j|Ta\s^-o»*itcasft'^* , c® 

5-5o 

zn# "?" ©»§*?*©*&, 

toWli "?" IZ£3#tlv5tv £Sffiffl£ 
scas a shift i »-©g55ae^uetf5v z 
© S £-£» ?(D-C&Zo 
rSHlFTl ^-tl\O©l3:^t^ l 0v SHIFTS-^ 

S O* 0 iMS-eS£iWHfc*tfa — tu^ 

a- ora'Qv zntifastfe S3 ^ff^tv 
V" tuples- cai 'om.-^m') is mau »b 
8tf5 ® ^»^tv"?" tfaBEtuaccfca.. 
riSv SHEDe#^atf5©tAur«w:-5o 
disuse? 
wjeiwra&ao 
siv znr*{Bi3rs£ 0 
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D " 1+1 = 2 " ©its 

pgg^l ^ffUTx ^-T^OW©!!®® 
<MUM3U'CtV6*f*Ct\ (H®2HMUM2«t>T 

"1 + 1 =■" I RETURN I 

s^tus,, UJU^ffli^Sx zn^sta^r 

^UTx 

c m SHIFT l ^-£3f U$#5 S3 *-*$1^ 
" 9 " 

® H) v Ex E "?" ® 

m\z "i + i" 
a RETURN l ^—friWo 
-g- 5 txX-T^ 7 b-<IJ^M 2 ©S^IZxSx 



¥ * 2 


-C353 " 2 * tJ " 1 + 1" (DTlzmmtsn, £5IZ 
-EffiTIZ "0 K" tlVMGWffl-Cv 27-VJ.US& 
5IZS£-tfflTIZ«S 0 

mm x ©# r T?^©sf»^u-csuo^ £iY 5 & 
©xf*©tt«*©fe®-caB'Ox *i/c 
©jJWJtetfeDteClWP®/ fVD>W©«?®. 

SglZj|ff<! 5 iS- 5 i^£ t^ZtMCD -c^So 

^ffl^ffl*SWSS^Z5(zg-<TIZ "2" £ 
Ue^t&TJTRflx^UT:/ WZ>©$(tlJ r t 
^i\*©©^B3if5uso!S©Tr^ffldb^«a5» 
*i>tvwj ^ivswiiza®. -&n^fflT© 
"o<" t©-5ie§©jiiaze&£>° 

ZOWEISx U^^fTJ-Cx JrfflitWiig^fflgm^ 

»*a<tfclittT^£Z£ 2 rcs 3 . 



¥ * 3 

»<*: 2 BB<MU£fc*ilira»JS(Dtf§JI 3 T 
353 o 

H®S , tii'C<- 5 t®- 5 fflrx iftreStt^Oai/W 
*C?tfx BUdi-^C^bT^'Ct^ffSClV. 


" ? " CiUott 

^print^B^^/f 

-tiza^s "?" is r "i + 1 "isuczrctr#- 
-? 4 <yE 9 , ni*(i:*ffl*wi^tnL^affi : Cx e® 
faiott'O i p-$i\mmi?:tJs i;oisz:nis "print" ti\ 
• 5 x -«© — zl ,T& ntbznw £ — ®tis 
© r Bgffij TfeSS©^ o 
prlntttt^yO^fflBffllZ^tSavttd; 

£©^i^£«U r 8 »r 3 j £# r S 5 W:r 

«<j tz^A- 53 »*a»®» 5 *fiz«t 0 rc*s. 

^^^?lT)Sg|Zt,«Sffi'Cx "?" © 2 MD 9 IZ 
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"print" *— 

"print" IS^^S9op^ltT'IJ«<st.-3t— » 
\&«7ZJlr iT^E r Mm te&j 
TUSffl-C/30-513; "?" cF'Ot. "print"©l3c>£ 
bus. z t(D\^wcm'0*?-$\,\i3'o , iS. c mu**?" 
nr&o r s^^j 

L\©r^8<«E®tmsu a^osove© 
tasoaotfs^x z©*-3cHicfira^s«»a 

□p^ffliSB9>^'V5 1 rr^-5^-5C</3o^nT 

IV&. 

*-7K-^±gffifflSt-taiZ35S 

rm rm rro rm nroi 

tlYSSO©*- C7^>92/3>^-) "MBSo 
zn5©*-©rt§0:x+'X7WfflH®ffl'F» 
ESnsfcnT^S (BZ.ftKD. 

/3o^ffl«)rcisc©tf)iz "print" a^sna 
\,\tts rsHiFTi ^-^ffLT^a^. naaffiizatn 
S„ Z?*IQ I SHIFT I fr-fe&LiBffg) FfTOl £l\ 
CD&IO "?" £# 

<©tim;^'C)^ "print" 
-I'X^W-tCBtfS©!^ (Cffits flTO! 
<bl V3^r-tt$»:ra«©«?DIB<!; L/TTIJ UOtt 
TO £lv3*-ESS=3'7hl/CUS©jetfx 
waa^zsTaasttsaai/Oo 

*ITCB\ "?" (DXtWOC "print" tlVDifrp 
•wfeHi!© "1 + 1 = 2" 

Uo 

SHIFT fr -fr&L.&ffS nroi 3f-£#U 


"C "print" ^tS/jx^-So 

©OK a s a £F)^Z>^C$l/TZ "print" 

C me " -1 '+ 1 " «ttW« 

® l RETURN F P— £jWo 
Z.'53‘-5tv iut^o^<|B]IJcfc'5Cs"2' / cbl/> 
■SSjUTFSCttk : £UZZ(DTIZ"0 K"£Cv5S; 
75-vjua^5E^©Tr^Mux r o 
wscastt^-caBS.- 
K*r^i6*se*El^ 

iUffid:^ OS9±Effli:a0E«.SC<t: 
tt&xm'0\,\i5.i&-rtit.^ o 
zz&z<n\£. 


print 1+1 
2 
Ok 


¥ * 4 

"1 + 1=2" itorciattivo 

"1+2 = 3" J&3otf "1+3 = 4" IzZotf. 
tVWoiJBIIZ " 1 + 2 + 3 = 6 \ "1+2 + 3 

+ 4 =io" nujiai zvgzzt.tf^ 

.caMxewcasBTOBSo 

7K>7K>7K>c!:ft6C^-^#UTs 

(,\££»SI/Vl 

fe63Auj|u*6XfAJ6t<5tti Su3@©g^-C 


1212 T-V^7 p u-r®®©T^Ci:*577'>'^'>a>+-©rt^ 

1 /30-5©^J!l 


Ht 


auto 


go to 


list 


run C R 

2 1 SHIFT 




time$ 


key 


print 


list. C R 


cont C R 
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1+2 


1+3 


1+2+3 


1+2+3+4 


¥ * 5 

Z£1z5z>o 

tozrrc, as^ia r ^sci?nsj 

fc 

££*.!& "3.3425 + 9.9782 = 13.3207" 

B6)o 


print 3.3425+9.9782 
13.3207 
Ok 

print 1.3698+2.1458 
3.5156 
Ok 

print 12.4528+24.7895 
37.2423 
Ok 

print 0.9956+88.5525 
89.5481 

Ok 


2 

Ok 

pr m 
Ok 

pr in 
Ok 

pr in 
Ok 

10 

Ok 
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<k«i% fU> 
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wwtu+efu, 

tfjL— 4fCJtB L. ;<x4>c?)ay t°j.— 

**t» -©10==- * 4'flfflii. B6 1 'ffifflS£4rJ£ 
ASA. OfttiH 

>.Krv^K*f»^a«cE:j|;^fcfc-CTvi-rj t 

LA' 4.. l#«i:Wj:;i;W 


^-Ci’******, m. ft*. m 
4-Hflie© 5 *.. SH® 2 t'A>'& *> < A'S I 'o 
ftfcflUBStf-C i’fcA # < 5 A, W 

frff 5 c t **a o * t„ «««■«: tt+sasogaw 

=F10I *S«^fflE#fflft»ra-3-7IWn«2 t*;k 
(#^il*±POPCOM8y|ISB r *>3 > • /' 
v K^Jk ft 
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A • 77 1 7 • > 

-) 

btliJilCLiLK, 

«ELT t r f 3 t<^- tH L j <n 

UfflWROM ( U — K 

• *>')-•* 

<Cfc\ K fcSUft L 

HSfcfrLT*.* L J: •)„ 

t'j-) *<* it. 

ZHij'b if ft* 

it, v+f-tf-KttCPUtf-K* 

>^u-(tc p u ( 4 >*toisia) 

'J-rf- Kli. 

R 0 M £ R A M 

Ki-> 3 tAA 7 

^feST 5 7 r □ ^ 7 A t 7- 7 £ fei* 

W 4 KA-f h-fOOTS 

K/\--r K 7 )|B* 

wit -^itT-Siisr 4 fc * < 7 ) *« x-r „ 

I W-TK-KflMlf^ 


7 x-^ 4 ' 4 r< 7 )«a@» 5 rcr.i;it^ 
^^■> 7 T i A/\- 7 i;nfy t iT„ TKU 
Kl/ 7 /U, 

L £T *«^*tlix 
-?'\X*TT 0 ¥LT,Ei 2 llK<«»ift 
SrifcW'f -Scotfp > h p 
- 7 +f-Jl*- K(J '>7 7 A/V 7 f(nt, 

ott-To 

fifit, CPU‘P> ; E'J- > 4 >?- 

K£«#tL 3 : 1 \ *^U 

— > 3 >*- K t-7*f-7?,- Kli, 7 

7 -y h->— y;i/T*««tLST. *fc& 

■r?>J:-)t;L,i-r„ 

m p-y-'Ht- K«)»fl 

<*&> 

v-tf-tf- ItW'f h 
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T— 

It Li To y-fT- Kli®>tffl<7)10D 
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‘J i'l±A.o®;3<7)y7*,7'ry:* £i 
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ROBOT 

CONTROL 

APPARATUS 
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S® 
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4 
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47*tF (15V) 
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1 
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2 
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LX <tz£\.\ n-tX-ZSjUi'bGi 
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t Li 
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® C & S t‘ > £ OT M ' fc' Xj§ii A< 
*■ 5 ; £ fcffifSL 4 To +5VW1S 
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7 s - ? ot im<nmm «• s it ^ii' x- 
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iftCSl!*##/)<T# S.i.oA OT> 
EU-(4, RAM (x>yA • X?-tr 
* • ft, ;<ii:#LTH 

M-A<R OM('J 
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R A M 14 y -f tS'vERAMi^? 
x-f y? R A MII-a-A'ft* t. y-fT 
5 ■ysJ'R AMBXSi:R»t8T« * 
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U x •> a ) L,4l'£ iBtt (*J§A<>8 *. X 
L i 7 &$*><*> 0 * to < tt 

m < 4 W;OT£ < OT/$*> P >.C«;bft 
T(.'4T. 7?x-r -y7 R A M14, — 
J£*# - Kli 1 ?-? < 

KttLxi'^y^';- 1 on. 

ROMi: fcWIIA'i, UJT, x*tx 
41t51:J(;yn/7A‘{>7'-J% 
Klil0S&OT/<y — >£ lx## CAT 
LiiM’v^^ROMTX. 
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t. fLT. E P R 0 MCli^ix 

•;8*ts u v-e p r 0 Miisiwi: 
m&MW e a r 0 M iftb U i T o 
:»iTi:, — pT-XEU- I c £ 
ofATfcfc< <*AOT«#A<ai>tJ *T. 

y-ro-s 

■y?RAM, 7?x-f-y7RAM. U 
V~E P ROMW. **')- I C 
ot«*I£«3u ( 4*Uxfc< £4i'TL 
ii. 

4-0®f£T?> KCtt, 

^?f<7?RAMtUV-EPR0 

MS-tti'i T.y<T 5 -y? r a m« n 
0 7 U- -y '> a T 4 0&A ! «$tTTo JjL 
tt40K(= LTflMJ^r* *r*£L * 
Lfc„ #j£(4 ROMtRAM4<4 K/< 
< hfrcri*, PR0M7-f#-i 

#M*TS*T(4. 8 kjw ht^r* 
R AM£LT«i5J:ii:7-f'yf-T 
«';*'AF>n*J:-)i:i9;H-LS L j: -5. 


El **')- \ cnmft 

jt*') —A?— KTfiyt'i-l C 
(is 7?x-r 7# R A MA<6I 16. UV 
— E P R 0 M1427I6TT. ffil££ t> I 
*® l CT*2K/<<> ( 1 6 K t' -y h ) 

it, i c^tose 
5U*'Wi;4OTTo 0^4 < Ait# L 
A'A*r i:A 5 X# *t, 

> >J — I C rtgROTU^OU'kXOT 
E1*#»r*ett-l27Ui:i*o f iT. cot 
iettfcESiJTfcfcftlCT’ KU7(#ife) 
A<-7l'Xl'4 T. 6116 (2716) 11147 
Kly7£-}g£:T4fcS!> A OA'6 A 10* 
X-OTll*OTtf>A«*f) STo f-y^A 
ft-tti 2 jtftX'l-A'^2 11 =2048 (16 
ay&OTsooH) 0OTie«iz7UA<a>5.c 
tc4yir„ x-^%-AW*rsf 
>(4 8^T-rOTX\ fei-fe/UOTA#? 
(4 8 kf-y F ( I /« h)T-To 8 t*-y h 
OTC P U, Z80 OTx-^ J<7 Do il'b 
d 7 **OTi immtizktfx-z $ 
t. tt, iett4zyuA'*'hi?i'>x'j- 
I C. tzti . (4 I f-y K7)«^-I48fla 
f-POTt'y ET->E'J-5r*fig-r?.C 

2TC4‘J*V. 


SrtfflOTe>t4C s, OE, WEOT 
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‘) tT 0 TLT S OT^ F^-v F 
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kU***s:t*.' 
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dtlzt'f-? £ 7 - 9 '<* Do 
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* r K U 7 13 , y'XU -A<« 

St <* ftT l' * -e- A.*' f>— a L £ -frA,,, 
KC071 - y^R OMffli] 


C-fe-y h Lfct # fcO 0 0 0 HA'F> 0 
F F F H #ife<7> >t'J-li7Y 

^bb 

* -ti-A,,, m»arztti., il<ti 
5TLJ: 

ZtlX-y.f: ')-*- KB*ritTf. 
I6K''T'I' 'J-S-JfiSRLfcl'ii 


^L^fiL-rSXfcT, 2 0 0 0 HA' 
b 3 F F F **')-*- K 

mst„ 

• fcfttj C 

*|g|l;tCPUtf-Kfcft‘J ilii. 
AWXM'>5’-7x-^*<4-< Tfc, 
*P8C y □ ^7 A £*IA,T*!!/)'-tf Z X 
ibi'JitJLACLT < ti$ I'o 
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xl^hP=-9XX''C'>WI/83 (£> 




HPSmi (KDD) 2: 7^-14, xJU 
tf? A • ft ■ a /\7U b (Tb-FeCo) t V' 
■5 Sir Li'Sjta-ftMfctt -3 fcftx -r 7. 
7**raii)!seu *s**.»m**s 

•TtssmT-'-f 77 7 ; EU-<*!gflHt<* 
jliiL£1#fc, tftmitzo 
4-in <r)*®ffi%<r>i$.mt, KDD(7)- 
niT^s* (T*jts7TZ) tin 
zmmL tzi easir-r 77 > * y -i: 
m -zkotimt. 

b • 7=^77 (cd) ^iiie=iBiMx 



-r 7 7 CiT 

KDDW^fiff^BB^L/c Tb-FeCo OTIC 
||®(4, * <b*'CaOT[Sj# Izfitt'ffcL.-r 
r 0j <7)1f«4-*fcjfCl'fcHfllfC. 

(./UT *&??■£ 
I'-)) fca'itfctffeu-if-tf-Afc 
Slttii, !SS(7)*(fi]CfflteLTJL 
1*1 # C # o T @ £ $ ft, r 1 j <7)1** C S 

5„ 

-^, 2> 2: $ t- 14 , i5fi£ (4 

fflC, T^\z/U 7 
*< b \s — V - fig M t S t£ 14 T- V.' ' l ' . 

■ot u, u— y-tr-A s-hr#*-*-* 
2: S<nA<77ffi#£A'tt*;£l«]fcr(4 
t-, 

Ti'fc7fcx^77<*»#Ju* ! IISlT- 

^Sfrltfc'o 

<$■@14, ~(M£miz£Z%mtT4 

77 2:»rLi.'4fe*^':/ 


^7 7S**<l*fFi?*l, V 

-CioTItt^T-WftTIBSt ■ • 

;8*<n»f*HKtCJta&L.fc. 

;®->xfAi:i-jt, 

®-f 5*|-&l4it*130-tr>^<*x-i'77 
#ET\ A4H'X<7)0®S;#^4 7J«c, 
20-tr 2 73tt<7)iSifA<oIfi6T-, 

7 □ -y fcf-f'-r 7 7 CD 500- lOOOfg t> (7) 
»***#«£!**< "TUtC: 4' 4 o 
4fc, %=r4 7 7<*Tb-FeCol4(£!S 

wx-itsiilisnTi'^wT-, *»!« 
1S#(- b mr Z t£ Ztnft&itfib z tz et ) , 
KDDT’14 ititdi'&tKZ m 

»im<7)r-^ii«»3£««<cir r spg 
iifrtb-fc'7<*fl-»j T*, tfcjy.z 
-14, 

-£, $rLi'*>ea-7<n7ty- 
fcLTjSffl-r-s-a-sfT*, 4fn^*w»ffl 
*f§<* IJflflCBi ‘J «fc ciC’ioti' 
5. 




03t«!^flfft4, **<7)3:*^ a vt" 
7-31t$8*(£ i »?a3!tT , -r 7 7&S 
r H-6975-2j 2:, %=f 4 77 ^ :?U1L 
t:lf77-n>^>47Ar HITFILE 

60 j 

ftx < 7 7 t 5 %=T 4 

77*- b M -y-714, xJl7l,*<7)*m 
%• i# L 4; #(130-12 > ^ CD *• 7 7 Rffio 
Z.(T)t 4 7 7 14 ft"®/:' It T' A 4+M7* 
<*#*I2^«;Cfcffi^T413ffi/\''l' b 
(®®T(4*<*®) fcOTtt^^riR^T- 

ilft, 47-1 714(4^ lA^fcU 
2 7?13<*#*I M*! 1 LTl'5 £ t'-btl 

5 . l*'L, ~n.b(r>3:m>km&m®. 

£ LT3>f il-7 


a^x-OUt 5 2:, l5*'<*1f*CJ:t 

2 3e* # 

7 7 fcn-rt' 

tZo 

r *-T*-r77iaj 
14 , HITAC • M-> 'J - 7*<7) 3 > tfi - 7 
l-««Er4 2:, »W7J*fcff>#3££*-? 
frjli A ? 

BIfil „ 4 fc r HITFILE60 j 5 2: , 

18!+7?fe<77*li5r*7*'-) r -S-Sif®« 
^7 7-i ')>■?! bX-ZZtl'To 

mmtjytT4 77*iij *^wu 

>7 JU^42175R, r HITFILE 60j A ; IH35 
7JR„ 

4fc, Ttx-r 77*- b ') -y-7(4, 
HTf77-tJb*<isi-r-&* < , m-®(i-5 


b) ffl*<5 7jn, ®®(2-6+' 
#7\'-r b)ffl(4 7^R 0 
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lb^hP-2XX''o/-Wb , 83 


7^'y^-y 


tt^'J-xi (**t: miSSTOffl 
SEEEJH £2-33-1 TEL 03-709-8111) 
(4, Z4l4 T-t-i- X7 7 h £»?A,T-l.' 
fcjSUnn ^7n7tf-?<4?t Of-ftSl 
Ml. frMn a n 7'l'>$:*)5;tT. 9B 
l B 4 ‘jI&JEMi&Lfco 
*msl. ±mmii *>*#-¥* ci4. ii 
iooo^«c^»J(xi#?i-r?.o 

ffitel4 8 -f > AM-®#® 1700R. BB 
®2200R.5.25-f >f-tf-®fg®1300R. 
BBffiff h77^ 2100R o lOfl 31 
B £ T\ 7D>; £•-■?< 7. ? lOJfelZ 1 
-7. r T'i>?A-/-47-Xj 7U*j 
> h+. 



MZ-5500 


S'-* -714. r »*v;u^'7'r> K 
#S6j ££*-flt;lfc«l'l!#¥0)»4ifc 
16 tf 7 h /< y a > r MZ-5500 •> U - X j 
*-£5SLfco 
16t*7 h/<7P>(4. 

0)10%*- d5» 2. 4 T-ICfiKft L T # fc A<. 
77 T'7xT<7)¥*5c#Ji<7)*IJiW7)'f>< 
aHkffrfcC-fA'L^A'^. *0)8*14 



'>*-716 1* 7 h'<ynv 
MZ-5500 '> 'J — X 


i ! +»4fr?ftTi'4'fr7t. 

M Z -5500-> ') -X(4. ;0)»j|j® 

nfi6**-4 a 

®ffl*A*i*lz fcm.SSrSi'fcKit 
*-m\ ©aaviu^o-rv K©»rL 
i'A****v-7>i»®fcr7 h v 7 775 
it0)5B£X7 7-f 7?T f -fX7L-1' — 
fcl'7 3O0)#m*:ttlpL. 4‘J8& 
0)77 1 5 4 

iCLTl'i. 

r 8®vju*-7*> Kj £ (.'7 0)14. 
a»B®0)7 J -^ *: 1 -30)CRT±(z B 

miz&L mt mm<r> z tx\ tztx if. 
4)4i4)4u5 < B'&4e;£TV - 
7< tJfilT. «»0)^-v*r#^L 
Tfc0)7i*5|iTl'<0)til;«# 
/'•S'-VfcfcoTl.'S. 

^lg(Cl4eA4B®*- 1 off) CRT 
-h0>ffiS0>tfc«T— z i: tfT- 

#5>0)T\ 7-7Pt0)7:tmi*. 
«W4777-f727, ^S547 

> K7-A fc't'41/Al'fo 

fflA < #X‘b4i4 0 


t r A7ii«"v'7x” J 14. &#A* 
M*0)Zi: T\ r 4i-f<*j lz®T 
i'4fcs) "•7'7^* £nfl44iTl'-5„ 
Z0)H*14. B®(cJI4 J LTj.-*<ib^T- 
77:**8®3-tt4i(f. i£iz«w>*g 
*«A*T#?>0)-C-. *— tf— K0>«& 
l Cfc4lT'fc 77 I- *- 
®ngT-#5» 

r f40 , 77-f70f-f77W'fj 14. 
CRT_L<7) 1 "3 0) ,#, *• > -t ') — (RAM) 
0)1 t*7 hc»jsr*j;-ic< , .s.4 L 
IzWfitt «, 

Z4iC4‘J. B®A«xyn-JL (H 
MOT * 4: S t> .*5fc*^#E0) 4 7 (z^ 
Z4i4T 

0)«^l5stl4. 4 * 7 ? ? -liltt0)» 
*bT-***fc LT*C< I'bnti-Dtz, 
■*'— K "7 X r 0)tt«H4SiJ*0) 4: fc I) 
fcfc\i4$H47XU -T\ ->*xARAM 
l47a77Affll28+P/<'f h.T f -? 
ffl256*p/\--f IT-. KHRT5 4:. «* 
5124n/<-f h t>0)A^*4:4'?)„ 

4 fc tf 7=4 RAM *>**1496* P/\'-f 
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hfc-)!)U92+P/N-'f * 7 — <7)1§ a"lJ 8 fe 2 H® £ a > I- P x-f * 7 H* 2 *0 i* (7) r MZ-5521 j 

640 X 400 K7hil'-) Siffiilffljf X\ X — JUT*# 3> „ fr'387J8000R[B] 1 S'? # <7} r MZ-5511 j 

/.*pB$iKH4ii®, spines®. flGMtu, 5 -f >*<r> s;ib p 7 tr- a { 287 J 8 oooh„ 


nlr 

® 45 MZ- 5521 . 5511 . 5501 

* 77 -»:i 6 * 77 - 

» 

C P U— 8086 ( 16 f y F ; 7 P '>7 5 MHz) 

* 7 ->a> 8087 ( ttfifcHHX P * -y iF— ) 

lestSM*: 55407 •T’-f 77 
*#rt 2 *iTPf*Bj % 0 */l*/ 2 *tt< 7>3 7 

tt 

« 

ROM 1 PLlfe( 16 KB) 

=v ri*¥ 7 ; E'J-( 128 KB) 
1 S¥*R 0 M*-K( 256 KB) 

77 F « 0 »OS : CP/M- 86 ™ 

BASIC : BASIC -1 


tr^ RAM( 96 KB) 

* U>y- • 7 P "J 7 «tft( 'J 7/67 < A- 7 p y 
7 /< 7 x l J-yt 777 'y 70 


^ y . >g> l*tt**Il 2 KB 

ajBHtft now ,.|| ' ^ 


l-fitt** 19 ZKB 

S a 13 . 7^9 ( MZ- 5501 ) 


•f> 7 — 7 x— 7 — 7 'J > 7 — f > 5 '— 17 x — 7 (*>FP— 77 l£ 

ssswt) 

CRT'f> 7 - 7 x-X(P>J)*i 77 F/RGB) 

16 . 7^9 ( MZ- 5521 ) 


5 - FD -f > 7 - 7 x -7 (** 4 *P > F P-.IL 

51 ) 

«*». ( 777 - 7 -' 

fcfXfl'Ol.'TOTlHK.'&MMt) 


it-/ K> 7 - 7 x-A 

S - F D FD 

(*—*- F) 

E 511 SrJlsE 5 iJ 

— 

g*: 320 KB( 1 F 7 -fT) 

Fxy 7 S[:«F 7-:/7 

IWfiSe LSI ( 80 C 49 ). *<7M 

7 HB*f» tS 465 ™xam 90 .mxBS 40 ™ 

a a 1.7F9 

7 — KX 7 H 0 HII/I 5 HII 



*Sa*»‘Jtt»tx ¥Stfi\ ©ffi* 
cnix-^-ypOT^OT-a-if 
Kofcftfi 5 X#(z*Mc>x-£ * a*i§Bi 
*59-yp r 7- t-VOUOHII (17P 

**S*A)j 

15 H II (27P'yt'-f-fZ2il)j 

^SLfc. 

Isl^C, 7- KyP-b'y+f-iX* 
4 '^^A'x. tt*s «7 

f&awc *«>/<'./ n >mm<7>&m<T-z 

2> r 7-K/'7H 0HII/15Hnjffl(7)f 
i?^^/\ - -y^-^tS r PALCALC 2 j 


*?W:. 

*jm£KS lit)\ x-7, m*}<7)t£h 
^A'tU SittVx#* r 7-l-/-feL' 
7 Mftfigj oT, 7-7 p 

037 

l»)-hLfc. 

fl5»(J , 10-f >f-7-T t K7 h 7 U 
h"7#X\ 7-K't 
7H0 H II Zr 1097} 8000 Pk 7 - K/\7U 
15 H II 1 1 123758000R „ PALCALC 2 U9 
^ 8000 Ro 


r *M«±#>^Aj V 7 hS« 


xtf-Ktt) (*:St«ir*e#r*2- 
2-1 TEL03-354-3951)(i. tf>?\A-> 
')-X4: 5 &<nm-Wt LX, r «»*)s 


±#>yAi 

*IJI*L, 2#ffiX% 

£<*3900R (FNI-7®). 


PC-8801ffl<7>77 h fc|JSS6 + 0 
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ib2sn=<S7x;^e/-wi/83 


'rip-?y->CRT 


&TWSB. 7-7 r o*#T*««I(?> 

LfcH* 

S^-^n r /\'^-7- K2200j £3g9c 

Lfco 

ZftB. t t>C. 

*^MCRT ?rl-C 1'5> £ Stt5 i: i' -5 
SC^SLi' 
-f x □ - y ij — >CRT£$ffl L fc t> <7)„ 
£ fcSffi-L<7)3:fc*# < T. il®a 
fc <) <n?mwi2'n (X*i9ft> in 
3ff) L»'4'<. H'T7h 
**. j#Ltt*«*4ir. tti'ifi: 


<»fc-fe7 htiM&B13KEH„ 

***. yjvj-, +-*-K£.5- 



v^-7°Z8000ffl UCSD p- System ^^-tE 



•> + -7 r «. JBA*±£ ftWtH* L. 
Z8000 (16 f -y Ev-f? n3>ti- 
7) BJ<7)UCSDp-SystemVl.l£f§5fiL 
tz „ cnS T\Z8000<7 )/Uj2*4<7)^« £ 

tt-c # fca<. os 

<7) 5tMt<n fc ft .UCSD p-System (1974*+ 
* 'J7*7UX7*i)6-9->7'-f ii«U 
CSDT-M*?tifc'>^xA) ^At 
fc t»< 7)« CP/M. MS-DOS 4' £T 

£ 4 *b A, T A5l<7) S> -5 OS T* 5 „ 


RICOM1300 


0 (Bg« 
58% 6 g) £«!:*£. 3007) RUTCD® 
«t73>a. ®r%*it76.6%*£ 
>.'•7 A #4#t/£SLT !.'?>„ 

V3-(i. ~<n? X 

fcH*f§ • 

r RIC0M1300'> 'j -Xj fc$gj|i 0 
4>*&IiS5 (CPU) B. 16tf-y h 

384+ n/w h£$iAT*. 15-f >%«:* 


af-f77K. 7V>*-t>. 24 x 
24 K -y h <7)»p a B KEP^A«nTt|T\ S* 
S (;*%T-56%/#) £(£*$! (H31 
%/8>) tf**. 

+ -/K-KB. W 

T^-C ZtzZ<n'><)~ 

XU, *). ®1 

'W K7)7a-yf-x<^^ 3££« 
2pS(i L fc r RICOM1310( 1987JHlU-t)j 


V7^x7iJiE 

UCJ5D p- System 

(Z8000ffl) 

W*yp-te*y^- (OS) 

—t— 

*— 7 7 < 7 _ 


-rtsypt7t- 

Pascal av/W^- 

Z8000Ta>-/7- 

— FORTRAN (*7va>) 

1 — BASIC (*7'>a» 

— xfV?- 


| YALOE ) 


t . 1 MS7n"y fc“— rV * 

?ll»2££flli*.4 r RICOM1320 ( 283 

75P3*'f>) j <7)2 0(7)+ TiVt'b $ o 

iittOT X- ? toS#ffi<7) 15 4. 0* 
i§7-yp. 

£1ix.fc£#s£*'7 7l>A'4. ;±S + 
tl5V7 K7)ff® n a B (-B. #*<7) r IS 

Isa/wiira/A* • iij 1 1' 

-3 fc *«SIJ '« -y 4 - <7) (5 *' c . r g «i 

£i'-3fc*«SiJ'*-y4-s>4a*o * 
7)>5f(DV7 h ES^dfgLT# 
Tl'5. 
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Mctt-UDSt) 

It. 9Si'K h-y 



TRS-80 ; Et-';U4 


ya > f a. — 7 TRS-80 + %-^JE 
Lfc„ TRS-80 ^E-? .O' 

mint- k (7) dos b iMWc-ay *' 

i.zz£X\ 

V7 K7 

=e rju ra cdi$ m ns**' b n - zf □ 

mt 

(4. *y-£^!iA 

-oTl'ttL'. «*&». 64KRAM.5.25* 
7 P -y fc‘— 2 o\ 12'f>^S»f* + - 
517J8000R o ** 
tt«(is Z-80A4MHz. 80X24^$* 


85+ — (77>y>3> + -34 
.i»< t,'),64KRAM, 14 K ROM, 5. 25' )+ 
7 □ -y f- 2 £ (368 K .40 I- 7 
■y?. 18-tr7 ?-).+ >?-7i-7 
(is 7 P| J>*- (-tr> h □ 
77-;u«H6#),*-fe-y h .RS-232C 
( * 7 r -> a > ) .DOS (i TRSDOS6 . 0 CP / 
Mplus. BASIC (is Advanced Microsoft 
BASIC 1 1£ -5 X l'5> o * -f > 3 > 

t> #«>£* <* nr t' ?> „ (ra 

: Ml- • 7> K • X- • T 

RS**g|5s TEL 03-545-8535) 




=***(#0'T(ittffTtt»Ts x 

ih)0#(Zs yu >^-rt»t(7)2i®*7- 
x U £21 C 675 P (257J 8000R ) £ «* 
Lfco flrt'7 ,| j li SCT-P50T-S 

WSli.6 759800PL K*#X + U >7'« 
#lT*280 X234K-y K7>***tt*«rl5 
#T-yj > Mra-tM- X(il00 X 84"»V 
16PgH<7) e *««„ 3^77)3® 


ptMapjA'/U asfifi, iTSfe a 
»zitr-t,w(iio 7 Pi ;>hftiis Im 
«&iffi25 m (C220Hffi7 P| J >hT# Ufc 
3.6P3oS«t6ia^T-s er*i&4-r>§ 

"r \s £ £ VTRA'OKo Tl/tlI(DA- 
Kp£-A'lfcft*i:, x u £<7)1* *8<7) 

CA, 4: SS £ 5 fc<7> t Wft $ 

fl5„ 






PT 5099 (g+>E) 


• >- • T-M#0 (*& 
SSit E#i5 1 -2-2 TEL03-582-6 1 1 1 ) (i . 

(mmSBttiE) fcitA 

• 9 ~ i 7- JUPT5099 (I^X +) 

■Lfc„ 

i^(i^T-(is zn* **■/?—* 
fcS&U 59^|glEg^(Ctt400^ 

PT5099OT#^»tg(is K(L&&ii«tM 
C^-y+Lfc^V^-f >«hI (ii* 


d)(5*\ %%x<nttm 

a*S*<7)iBiSs *£B$8<7>fFfiL *§! 

iI4S<7) 

«**<& a »«*»*;, *y-A*s4o 

¥ X 8ff <77 ASUx T 7 7W 5-fefcLs 
32KR0M. 64KRAM £ jig LTl'-So 

«£«. l£ift507JH,, 
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Xb^hP-<7XX^2/-vJU’83 


*av7y7*-H*IKSi*/ 


*S->^tAV7 f (**± : 
*Ei*fflii2-4-8 'J'ijStf fc'JL 9 F TEL 
092-714-6236) li, ^gBroder bundtt 


i:<7)»«|icj: ‘), T-y-7n,<»x-s<- 
^-A, 3b<nTavZf')y9-t. a 
— F*7 >X — , David’s Midnight Magic 


<7>3;££, NEC (7) PC /'t—i' a >T'9£t5 
-££L» V/. 


gTll'CP/MT*-A3>ti-?ffi±IU#A 


r^A- • ■;•#—*■ • *■»•/<>», 
'J+7- ^ttOTfrLL'C 
P/M^'t-v#-jLCP/M(P-CP/M) *><fc 
O', VIP( tfSJo.T’JL • <>7t7-> 
3> • -/n-bvV-) *- 

An>f n.-?m*»i::#ALfco P-CP 
/MttflfeJROTCP/M^^l'-T'-f 
a t A S-IC^ -y ■/(:»« L, ROM 
B6ttCP/M i:Ltt(D.7P*y bf-ttL 
T'fc, 

7HL Jfc-AaVfcTa-^fliCtt, -5 
oT-Dlto P-CP/M l±,Z-80, 8086, 80 
88ffl(l!9;H-3nXL'5>c 
— ^, VIP(i,yp^7AWBCT-# 


A'nfc 60 «lU-h< 7 )SS*ipl/O ;L-^> 
«#!£#*., tf5>a.77U7.7 1>0>fciO 
(7>< >*-7x-Atf*|*A'oaMM'l 
C«fflT#4. ^n^7itt, f-fy 
I'-ukmizmwumMtztitz v i 


P**6T, BBSSt, am, 
l=Ji*'C§%tt'-5„ ttffili, P-CP/M 
tifci:, 1983%10fl-12^Mte, * 
¥* 8007 J£(±ttff T)*)®! jU *„ 



64KCMOS^V^-vy^RAM 
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«>, 2507 -/#( 7 ) 3 «*'ffi*Sn, 200 X 

y»<nv>^mmtimaooon a 

a*T-ii, _ns-Btt<7)ic>'E'j- 

<7)±tn$&t LTltT4*li]T-, 

««fc, 

59^J*TJ«* TCtiraiOO^fflliLhWi 
jfflsfW ££ X 2> - £ C 0 T l' * o 
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t) '> *PB-700 It % 20*fr 4 fftfJzfcsM 
*/'C*;K160XS2 K*y 

■UfiJ4 r 7>4 1 -n-7> K^;u 

(.vc_V^ JU3> t : =L -9fi <t jga« 
#*7 7l/tM»LTti., A 4^'f X<7)3 
>/*<? Mfcth, «^(i^3^4800P3. 
RAM/'"'y 7 9000R S S-feyhO?- 
7x-Xlt5 -yj >^-4^5000R. 
v-T^pa-fy (• U 3 -y- 1755000 
R„ 

4J->*CG-814. 

7 h |J /<-'>) *F*3»0fc**:3>. 


1 Atfcli2'At*L»5„ 7-rSx-f-^*S6^S« 0 (IfctXt 
am*. 'J-##T-««(45900Pio 




*,%/n>X;^®T*I 4. 1*125 5 ®* 
£K!fcLT, r *(7)aMtj 4f-7C, 
-<7)6E4 IK *-7< 

* r ''>X**j 9 ^ 140 


ds**<fM>-0‘K 1OE2O0 fcSWt::, 
7'>X'**%{4l;»23*«:**r%o 
*&'n>:*T ; (4 n 10^210(^-10^30 
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10 ' 

20 ' 

30 ' 

40 ' 

50 ' 

60 ' 

100 Ul I DTH80 , 25 : CONSOLE0 ,25,0,1 
110 COLOR 7,32,0 :PRINT CHR$<12) 

120 CLEAR 300 , &HCFEF : DEFUSR=&HO0B0 : 1 F PEEK ( &HD0B0 ) < >46 THEN 420 
130 DEFINTA-Z:POKE &HCFD0 ,0 : POKE &HCFD1.0 
140 COLOR 7: PR I NT CHR$(12) 

150 FOR 1=0 TO 30 ! LOCATE RND ( 1 ) *78 , RND ( 1 ) *24 : COLOR RND( 1 )#6+l SPRINT 

160 FOR 1=1 TO 78 

170 LOCATE 1 , 15:PRINT MIDSC - 

'vma.'vt' Mjmmr' , i , 1 > 

180 LOCATE 1 , 16:PRINT MID$< * JW U JtTM* MT 

* jw jm * -v ■ ,i,i) 

190 LOCATE 1 , 17:PRINT MIDSC - ^ 'JWU m ■ JW 

200 LOCATE 1 , 18:PRINT MI D$ ( ’ * JW JW »k ■ jm 


PROMETHEUS 

THE REALTIME GAME PC-8001 
1983 PRESENTED BY TOMODANGO. 

FOR ‘POPCOM - CONTEST 


; :NEXT 





210 L OCATE 1 , 19:PRINT MIDSC^ *T Jm JW M 

t BV4HBT ’,1,1) 

220 NEXT 

230 FOR 1=0 TO 8: LOCATE RND( 1 )*78,24:C0L0R RND( 1 )*6+l SPRINT sBEEPl : BEEP0 : FOR 

J=0 TO 100: NEXT: NEXT 

240 BEEP1 :F0R 1=0 TO 2000 : NEXT :BEEP0 

250 FOR 1=0 TO 9: OUT 81, 33: FOR J=0 TO 100: NEXT: OUT 81, 32: FOR J=0 TO 100: NEXT :NEX 
T 

260 COLOR 7: LOCATE 30 , 12 : M$= ’ THE REALTIME GAME * : GOSUB380 

270 COLOR 5: LOCATE 22, 16:M$= - 1983 PRESENTED BY TOMODANGO SOFT - : GOSUB380 

280 COLOR 6: LOCATE 22,18:M$= - ( KEY FUNCTION FOR MOVE ) - :GOSUB 380 

290 COLOR 4: LOCATE 22,20:M*='C4T < LEFT RIGHT > C63 : CSPACEH FIRE - :GOSUB380 

300 COLOR 3: LOCATE 22, 28 :M$= - PLEASE HIT ANY KEY TO START - :GOSUB380 

310 IF INKEY$= - " THEN 310 

320 U$=USR( - 0 - ) 

330 COLOR 7 

340 LOCATE 30,10:M$= - * GAME OVER * - :GOSUB 380 

350 LOCATE 30,15: MS- - < PLEASE HIT ANY KEY) - :GOSUB 380 

360 IF INKEY$= -- THEN 360 

370 GOTO 140 

380 FOR 1=1 TO LEN(MS) 

390 PRINT MID$(MS, I ,1 ) ( : IF MIDS( MS , I , 1 )< > - - THEN BEEP1 :BEEP0 
400 FOR J=0 TO 100: NEXT: NEXT 
410 RETURN 

420 PRINT - * PROMETHEUS * - 

430 PRINTsPRINT - 7 0- F” 5.72. - 

440 PRINTsPRINT "7-7* A 777 h’W PLAY => 

450 MS= - mon - +CHRS ( 1 3 ) + " l - +CHRS ( 1 3 ) +CHRS ( 2 ) + - run - +CHRS ( 1 3 ) +CHRS ( 0 ) 

460 M=VARPTR ( MS ) + 1 : POKE &HEDC0 , PEEK ( M ) : POKE &HEDC1 ,PEEK(M+1 ) :POKE &HEA68 , 1 : END 



100 'POPCOM check sum program 
110 CLEAR ,&HCFFF SPRINT CHRS< 12) sUIDTH 80 
120 INPUT ‘Start address - ; ST$ : ST=VAL< " &h - +ST$ ): A=ST 
130 PRINT CHRSC 12) SPRINT - Address+0 +1 +2 +3 +4 +5 +( 
:Sum" SPRINT STRING$<60, - - - ) 

140 FOR 1=0 TO 15 SPRINT RIGHTS! - 000 - +HEXSC A ) , 4 )+ " 
:S=S+D SPRINT RIGHTS! - 0 - +HEXS! D) , 2 )+ - - : A=A+1 : NEXT J 
150 PRINT ’ : "+RIGHTS! - 0 ‘+HEXS! S ) ,2) :S=0 :NEXT I 
160 PRINT - C)ontinue,E)nd or R)estart 7" 

170 CS=INKEYS 

180 IF CS= - C - OR CS= - c - THEN GOTO 190 ELSE IF CS= - E - 
CS= " R - OR C$= " r ‘ THEN GOTO 120 ELSE GOTO 170 
190 PRINT CHRS! 12) :GOTO 130 


+7 +8 +9 +A +B +C +D +E +F 
" : :FOR J=0 TO 15 :D=PEEK( A ) 


OR CS= - e " THEN END ELSE IF 


160 
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1 ' a**************************************************** 0 N _ 

3 '* SPACE-TENNIS * CT&/u<£&l,\„ 

4 '* * 

5 '* Copyright 1983 by K.OKANO * 

6 '* * 

7 ' a**************************************************** 

10 UIDTH 80 , 25 ‘CONSOLE 0 , 25 , 0 , 1 : COLOR 4 , 0 , 1 : PRINTCHR$( 12) : CLEAR 300.&HCFFF 
15 GOSUB 2000 'title 

20 SR=0 : SL=0 : BH ( 1 ) =&HF65C i BH ( 2 ) =&HFBFC : BH ( 3 ) =&HF682 s BH ( 4 ) =&HFC22 : POKE &HD04B , 8.HE 
:P0KE &HD04C , &H3 : POKE &HD047,&HE:POKE &HD048 , &H4C : POKE &HD225.&HA 
25 HY( 1 )=7:HX( 1 )=20 :HY(2)=7:HX(2)=58:HY(3)=19:HX( 3)=20 :HY ( 4 )=19 :HX( 4 )=58 
30 DEFUSR0=&HD000 i DEFUSR1=&HD060 : DEFUSR2=&HD230 : DEFUSR3=&HD220 
105 PRINT CHR$( 12 ) 

110 GOSUB 1000 'attri 
120 GOSUB 1200 t'i-'j 

130 AA=USR1 ( 0 ) : AA=USR3 ( 0 ) : AA=USR1 ( 0 ) : AA=USR2 ( 0 ) 

140 IF INP( 9 )=191 THEN 145 ELSE 130 
145 GOSUB 990: GOSUB 900 
150 AA=USR0( 0 ) 

160 Z=PEEK ( &HD040 ) 

170 ON Z GOSUB 200,400,600,800 
180 GOTO 150 

200 ' black hole 

210 BEEP 1 :FOR J=0 TO 10: NEXT J:BEEP 0 
220 A=PEEK(&HD225) :A=A-1 
240 IF A=<2 THEN 270 
250 POKE &HD225, A 

270 GOSUB 900: FOR K=0 TO 200: NEXT K: RETURN 

4 0 0 ' side i ine (r > 

410 GOSUB 980 : SL=SL+1 

420 LOCATE 14,1:PRINT USING " ## ' s SL : 

430 IF SL=>11 AND SL-SR>1 THEN 9000 

440 POKE &HD040.0: GOSUB 970: GOSUB 900: RETURN 

600 ' side line (1 ) 

610 GOSUB 980 :SR=SR+1 

620 LOCATE 61,1:PRINT USING ‘ ## ‘ ; SR ; 

630 IF SR=>11 AND SR-SL>1 THEN 9000 

640 POKE &HD040.0: GOSUB 970: GOSUB 900: RETURN 

800 ' Alien 

810 FOR 1=0 TO 150 : BEEP 1:BEEP 0:NEXT I 
820 D= I NT ( RND( 1 ) *4 ) +1 : POKE &HD041.D 
830 K=INT( RND( 1 )*30 )+10 
840 FOR 1=0 TO K 

850 BEEP1 : BEEP0 : AA=USR1 ( 0 ) : AA=USR3 ( 0 ) : AA=USR1 ( 0 ) : AA=USR2( 0 ) 

860 NEXT I 

870 Y=PEEK( &HD050 ) : X=PEEK< &HD051 ) :POKE &HD043 , Y : POKE &HD044.X 
880 RETURN 

909 ' (p-i h 

920 D=INT( RND( 1 )*4 ) + l :POKE &HD041.D 'J h fen: < 
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930 K=INT(RND(1)*4)+1 

IF D=2 OR D=3 THEN 950 ELSE 960 

950 POKE &HO043 , HY ( K > : POKE &HD044 , HX(K ) : POKE &HD045.HYCK ) :POKE &HD046,HX(K) 

RN 

960 POKE &HD043 , HY ( K ) : POKE &HD044 , HX ( K ) + 1 : POKE 8.HD045 , HY C K > : POKE &HO046.HXO 
RETURN 

970 FOR K=0 TO 200: NEXT K: RETURN 

* BEEP 1 :FOR J=0 TO 10: NEXT J:BEEP 0: RETURN 
990 FOR 1=0 TO 20: BEEP l:FOR J=0 TO 20: NEXT J:BEEP 0:NEXT I: RETURN 
-- 3 ' ? Ml fe'H 

1010 FOR I=&HF530 TO &HFE18 STEP &H78:P0KE I,&Hl:POKE 1+1 ,&HB8:NEXT I 

1020 FOR I=&HF5AA TO &HFD2A STEP &H78:P0KE I,&H2:P0KE 1+1 ,&H58:NEXT I 

1030 I =&HF5AC : GOSUB 1510 : I=&HFD2C:G0SUB 1510 

1040 I=&HF624:G0SUB 1510:FOR I=&HF714 TO &HF8F4 STEP &H78:G0SUB 1510:NEXTI:F 
=&HF9E4 TO &HFBC4 STEP &H78: GOSUB 1510: NEXT I : I=&HFCB4 : GOSUB 1510 
1050 I =&HF69C : GOSUB 1520 : I =&HF96C : GOSUB 1530 : I =&HFC3C : GOSUB 1520:RETURN 

1200 ' 7 HO 

1210 FOR I=&HF4E2 TO &HF52D:P0KE I ,&HFF :NEXT I 
1220 FOR I=&HFD52 TO &HFD9D :POKE I , &HFF :NEXT I 
1230 FOR I=&HF4E1 TO &HFD51 STEP &H78:P0KE I,8,HA5:NEXT I 

1240 FOR I=&HF52E TO &HFD9E STEP &H78:P0KE I,&H5A:NEXT I 

1250 LOCATE 0,0 

1260 CO LOR 1:PRINT ‘ ■■■■ , < — , 

1270 COLOR 6: PR I NT ‘LEFT ‘;:COLOR 1:PRINT ‘ ■ *- 

‘SPACE — TENNIS"; :COLOR 1:PRINT ‘ I ■ 

I G H T‘ 

1280 CO LOR 1:PRINT - ■ 

1290 FOR 1=1 TO 4: POKE BH( I ) , &H9F :POKE BH( I )+l , &HF9:NEXT I 

1300 I=&HF934:P0KE I,&HFF:POKE I+l.&HFF 

1310 I=&HF94A:P0KE I,&HFF:POKE I+l.&HFF 

1320 I=&HF91B:P0KE I,&HCF:POKE I+&H78.&H3F: I=&HF964:P0KE I,&HFC:POKE I+&H78.&HF3 

1330 GOSUB 1400: COLOR 7: GOSUB 420: GOSUB 620: RETURN 

1400 ' cmd 

1410 CMD SCREEN 2,0,5 
1420 FOR 1=0 TO 100 

1430 Y=INT( RND( 1 ) *143 ) +40 : X=INT (RND( 1 )*607 )+16 :C=INT ( RND< 1 )*3 ) + l 
1440 CMD PSET (X, Y) ,C 
1450 NEXT I 
1460 RETURN 

1500 ' 7 1f7“ 

1510 POKE I ,&H27 :POKE 1+1 ,&HD8:P0KE I+2,&H29:P0KE I+3,&H58:P0KE 1+4 ,&H4E:P0KE 1+ 
5, &HB8: RETURN 

1520 POKE I ,&H14:P0KE 1+1 ,&H78:P0KE I+2,&H16:P0KE I+3,&H58:P0KE 1+4 , &H27 : POKE I 
5,&HD8:P0KE I+6,&H29:P0KE I+7,&H5A:P0KE I+8,&H3A:P0KE I+9,&H7A:P0KE I+10,&H3C:PO 
KE I+11.&H5A: :POKE I+12,&H4E:P0KE I+13,&HB8:RETURN 

1530 POKE I ,&H1C:P0KE 1+1 ,&H98:P0KE I+2,&H1E:P0KE I+3,&H58:P0KE I+4,&H27:P0KE I 
5 , &HD8 : POKE I+6,&H29:P0KE I+7,&H5A:P0KE I+8,&H32:P0KE I+9,&H98:P0KE I+10,&H34:PO 
KE I +11 ,&H58:P0KE I+12,&H4E:P0KE I+13,&HB8:RETURN 


1 ' : : COLOR 2:PRINT 

I 1 ; : COLOR 6 SPRINT - R 


tie 


2010 WIDTH 80,25: CONSOLE 0 , 25,0 , 1 : COLOR 2, &HF0 , 1 SPRINT CHR$(12) 

2020 GOSUB 1400: GOSUB 2500 'title 

2030 IFINP(9)< >191 THEN 2030 

2040 COLOR 7,0 SPRINT CHR*( 12) : RETURN 

2500 'title sub 

2510 LOCATE 0,1: COLOR 1 

2520 PR INT • A Jmmr 

2530 PRINT '■ ■ ■ M -V ■ ■ ■ ■ 

■ 

2540 P RINT 

2550 PRINT 

■ 

2560 PR INT 

2570 COLOR 5 : L I NE ( 5 , 7 ) - < 70 , 20 ) , ‘I 
2580 LOCATE 5, 22: COLOR 6 SPRINT * 

HIT SPASE KEY TO START 

2590 X=41 : Y=15:C0L0R 6,0,0:LOCATE X,Y:PRINT ' 
(4)=1:DY(1)=-1:DY(2)=-1:DY(3)=1:DY(4)=1 


J=1:DX(2)=-1:DX(3)=-1:DX 
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2595 COLOR 6:LINE(6,8)-(69, 19) , ,BF:LINE<6,8)-(69,19) , * ' ,BF 

2600 NX=X+DX(D) : IF NX=5 THEN 2700 ELSE IF NX=70 THEN 2710 

2610 NY=Y+DY(D) i IF NY=7 THEN 2720 ELSE IF NY=20 THEN 2730 

2620 LOCATE X,Y:PRINT ’ ‘ : X=NX : Y=NY : LOCATE X,Y:COLOR 6:PRINT ■*' ; 

2630 IF INP( 9 )< >191 THEN 2600 

2640 RETURN 

2700 IF D=2 THEN D=1 ELSE D=4 
2705 GOTO 2600 

2710 IF D=1 THEN D=2 ELSE D=3 
2715 GOTO 2600 

2720 IF D=1 THEN D=4 ELSE D=3 
2725 GOTO 2600 

2730 IF D=3 THEN D=2 ELSE D=1 
2735 GOTO 2600 
2900 RETURN 

10 ' end 


9010 LOCATE 5 , 24: COLOR 2:PRINT ’«< GAME OVER! ! >>>‘;:COLOR 5:PRINT - 
V) YfK" VJ17.1) ( y/n ) " ; 

9020 IF INP(5)=253 THEN 9050 
9030 IF INP<3)=191 THEN 9100 
9040 GOTO 9020 
9050 POKE &HD040,0:GOTO 20 
9100 PRINT CHRS( 12 ) :END 




100 'POPCOM check sum program 

110 CLEAR ,&HCFFF :PRINT CHR$( 12) sUIDTH 80 

120 INPUT ‘Start address ‘ ; STS :ST=VAL( ’ &h ‘ +STS ): A=ST 

130 PRINT CHR$( 12) :PRINT ‘Address+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F 
:Sum‘ SPRINT STRING$< 60 , ‘ - V) 

140. FOR. 1=0 TO 15 : PR I NT RIGHTSC ‘ 000 ‘ +HEX$( A ) ,4) + ‘ - ;:FOR J=0 TO 15:D=PEEK(A) 

sS=S+D:PRINT R I GHTS ( ’ 0 ‘ +HEXS ( 0 ) , 2 ) + " ‘ ; : A=A+1 :NEXT J 
150 PRINT ‘ : ‘ +RIGHT$( ‘0 ‘ +HEXSCS ) ,2) :S=0 :NEXT I 
160 PRINT ‘C)ontinue,E)nd or R)estart ?■* 

170 C$=INKEY$ 

180 IF C$=‘C‘ OR CS=‘c ‘ THEN GOTO 190 ELSE IF CS=’E‘ OR C$=‘e‘ THEN END ELSE IF 
C$=‘R‘ OR C$=V THEN GOTO 120 ELSE GOTO 170 
190 PRINT CHR$< 12) :GOTO 130 
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(pc-3801 pc-980i“B) 7D-75GU:2h 


1000 CONSOLE 0,25,0, 1 :UIDTH 40,25:COLOR 7:CLS:SCREEN,2 
1010 LOCATE 6.8SPR-INT ‘PC-9801 & High-res CRT ... 1’ 

1020 LOCATE 6, 10: PR I NT ‘PC-9801 & Lou-res CRT 2‘ 

1030 LOCATE 6, 12: PR I NT ‘PC-8801 3‘ 

1040 SE$=INPUT*< 1 ) : IF SE*<>‘1‘ AND SE$=‘2‘ AND SE$=‘3‘ THEN 1040 ELSE 5 


=VAL(SE 


1050 IF SE=1 THEN CLEAR ,&H17D6:DEF SEG=&HC00 : DEF I NT A-T.X, Y:DEFDBL V:SC=3:SCA 
LE=1 :SL=1 

1060 IF SE=2 THEN CLEAR ,&H17D6:DEF SEG=&HC00 : DEF I NT A-T.X, Y:DEFDBL V:SC=0:SCA 
LE=2:SL=1 

1070 IF SE=3 THEN CLEAR .&HBD7F : DEF I NT A-T.X, Y:DEFDBL V:SC=0:SCALE=2:SL=0 
1080 Z=&HC000:DEF USR1=&HBD90:X=1:Y=1:COL=1:SB=1 

DIM PG5{( 9) ,T(5, 1 ) , A0>i(54 ) , Al^( 36 ) , A2^( 63 ) , A3^( 36 ) , A4/J(54 ) , A5/i(81 ) ,TI ( 15) 
FOR K=0 TO 1 :FOR L=0 TO 5: READ T ( L , K ) : NEXT : NEXT 
ON HELP GOSUB ^RETURN. TO. MENU: HELP ON 

CLS: INPUT ‘2-9"- 9YA 9 CLEAR 5>72fl?‘ :A$: IF A$=*N‘ OR A$=‘n‘ THEN 1140 
FOR I=( Z-&H200 ) TO (Z-l) STEP 16 : POKE ( I ) , 0 : NEXT 
KEY 2, ‘GOTO #MENU‘+CHR*( 13) :KEY 5,‘‘ 

TILE. PATTERN 

DATA 0,128,136,170,238,255,0,8,34,85,187,255 
1170 ' PC. 88. M. CODE 

1180 DATA 221,42,136,189,42,134,189,221,126,0,230,128,119,35,54,0 
DATA 42,132,189,221,126,0,230,127,119,35,54,0,42,128,189,221 
DATA 126,1,119,35,221,126,2,203,63,203,63,203,63,203,63,119 
DATA 42,130,189,35,221,126,2,230,15,203,63,119,43,221,126,3 
DATA 203,31,119,1,4,0,221,9,221,34,136,189,201 
1230 *PC . 98 , M . CODE 

1240 DATA 80,83,81,87,6,30,184,0,12,142,216,49,201 

DATA 49,192,139,62,142,189,142,6,140,189,139,30,138,189,138,5 
DATA 36,128,38,137,7,142,6,136,189,139,30,134,189,138,5,36 
DATA 127,38,137,7,142,6,128,189,139,30,126,189,139,69,1,177 
DATA 4,210,236,38,137,7,142,6,132,189,139,30,130,189,138,101 
DATA 2,138,69,3,128,228,15,209,232,38,137,7,1,14,142,189 
DATA 31,7,95,89,91,88,207 

CLS: LOCATE 5,12:PRINT ‘== GRAPHIC TOOL Ver 1.0 ==‘ 

IF SL=1 THEN *PC.98. INIT 

FOR W=&HBD90 TO &HBDDC : READ U:POKE U,U:NEXT 
VAX=VARPTR ( X ) +65536 ! : VAY=VARPTR ( Y ) +65536 ! 

VAS= VARPTR ( SB ) +65536 ! : VAC=VARPTR ( COL ) +65536 ! 

VAXH= I NT( VAX/256 ) : VAXL=VAX-VAXH«256 : VAYH= I NT ( VA Y/256 ) : VAYL=VAY-VAYH*256 
VASH= I NT ( V AS/256 ) : VASL=VAS-VASH*256 : VACH= I NT ( VAC/256 ) : VACL= VAC-VACH*256 
1380 POKE &HBD80 , VAXL : POKE &HBD81 , VAXH:POKE &HBD82,VAYL:P0KE &HBD83, VAYH 

1390 POKE &HBD84 , VACL : POKE &HBD85 , VACH : POKE &HBD86, VASL:POKE &HBD87.VASH 

1400 ZA=&HBD88 : P0=0 : Pl=l : P8=8 : P9=9 : DEF FNS(Y)=Y/2: GOSUB »BELL:GOTO *MENU 

1410 #PC.98. INIT 

1420 RESTORE *PC . 98 . M . CODE : FOR U=&HBD90 TO &HBDF3:REA0 U:POKE U,U:NEXT 
IF SC=3 THEN POKE &HBDE4 , 144: POKE &HBDE5.144 
VXO=VARPTR( X ) : VXB=VARPTR< X , 1 ) 

VYO=VARPTR (Y) : V YB=VARPTR ( Y , 1 ) 

VCO= VARPTR ( COL ) : VCB=VARPTR < COL , 1 ) 

VSO=VARPTR( SB ) : VSB= VARPTR ( SB , 1 ) 

VXOH= I NT ( VXO/256 ) : VX0L=VX0-VX0H*256 : VXBH= I NT ( VXB/256 ) : VXBL= VXB-VXBH*256 
VYOH= I NT ( VYO/256 ) : VY0L=VY0-VY0H*256 : VYBH= I NT ( VYB/256 ) : VYBL=VYB-VYBH*256 
VCOH= I NT < VCO/256 ) : VC0L=VC0-VC0H*256 : VCBH= I NT ( VCB/256 ) : VCBL= VCB-VCBH*256 
VSOH= I NT ( VSO/256 ) : VS0L=VS0-VS0H*256 : VSBH= I NT ( VSB/256 ) : VSBL=VSB-VSBH*256 
POKE &HBD7E , VXOL : POKE &HBD7F , VXOH : POKE &HBD80 , VXBL :POKE &HBD81 , VXBH 
POKE &HBD82 , VYOL : POKE &HBD83, VYOH:POKE &HBD84 , VYBL : POKE &HBD85 , VYBH 
POKE &HBD86 , VCOL : POKE &HBD87,VC0H:P0KE &HBD88 , VCBL : POKE &HBD89 , VCBH 
POKE &HBD8A , VSOL : POKE &HBD8B , VSOH : POKE &HBD8C , VSBL : POKE &HBD8D , VSBH 
ZA=&HBD8E : P0=&HE0 : P1=&HE1 : P8=&HE8 : P9=&HE9 
IF SCALE=2 THEN DEF FNS(Y)=Y/2 ELSE DEF FNS(Y)=Y 
1580 GOSUB *BELL 
1590 *MENU 

1600 CONSOLE 0,25,0, 1:UIDTH 40,25:COLOR 7, 0,0, 7 

SCREEN SC,3:U=0 :POKE ZA,(Z MOD 256):P0KE ZA+1 , ( INT( Z/256)+256) 

CLS: LOCATE 0,5 

PRINT ‘1 ?*-? J 3S35‘ 

PRINT 

PRINT ‘2 YD t9?<‘ 

PRINT 

PRINT ‘3 I / 9-ft-T ii * kfcs< 

PRINT r 
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1690 PRINT '4 7' -9 97tY ' 

1700 PRINT 

1710 PRINT '5 90 J TOt'JTT 1* 

1720 PRINT 

1730 PRINT ‘6 90 J SntifS 2' 

1740 PRINT 

1750 PRINT '7 T'-9 J t-7* ‘ 

1760 PRINT 

1770 INPUT 'SELECT NUMBER 'jK 

1780 IF (K<1) OR (K>7) THEN BEEP sGOTO *MENU 

1790 CLS 

1800 ON K GOSUB *DATA. LOAD, *LINE1 ,*LINE1 ,*DATA. MAKE, *MAKE. LINE. COLOR, *LINE1 , *0 
AT A. SAVE 

1810 GOTO *MENU 
1820 *RETURN • TO . MENU 
1830 RETURN *MENU 
1840 *BELL 

1850 FOR 1=0 TO 5 ! BEEP It FOR L=0 TO 10! NEXT; BEEP 0t NEXT: RETURN 
1860 *DATA.LOAD 

1870 LOCATE 10 , 11 sPRINT'9-7* »9 0-F" 7* ....1' 

1880 LOCATE 10 , 13lPRINT'9* *77 J)9 D-F* 7* ...2' 

1890 A*=INPUT*< 1 ) : IF A*<>'1' AND A*<>'2‘ THEN 1890 ELSE A=VAL< A*) tA*=" 

1900 CLSilF A=2 THEN 1920 

1910 PRINT "9-7° 9 t-sF5-9.M0N(CR) ,R(CR)9‘ ,7'-9 9 D- F" 5-9 , CTRL-B , f • 2 9 9<T 5-9 99' 
90 STOP 

1920 LOCATE 5s INPUT' F*90* 9>A*- A 9>AO 9*7 ».'jDN 
1930 FILES DN 

1940 PRINT'**’? J f'-9 7tO *' 7-391 y 9 *5.979“90' 

1950 A*=INPUT*( 1 ) t IF A$<>'Y' AND ASO'y' THEN 1920 
1960 INPUT'7 tO J 971 9 09 99 ' 90 'jNM* 

1970 DN*=STR*(DN) tON*=RIGHT*(DN$, 1 )+' t 1 sBLOAD DN*+NM* 

1980 GOTO *MENU 
1990 *LINE1 

2000 CLS! SCREEN SC,0iIF SL=0 THEN OUT 104,0 ELSE OUT 104,8 

2010 LINEC0 ,0 )-(639,FNS(380 ) ) ,7,BF sLINE(0 ,FNS(381 ) )-(639,FNS(399) ) ,0 ,BF 

2020 A=USR1 (0 1 ! IF SB0128 THEN IF XO0 OR Y< >0 THEN LINE-(X.Y) ,0sGOTO 2020 ELS 

E ELSE POINT(X.Y) sGOTO 2020 

2030 U= ( PEEK ( ZA ) +PEEK ( ZA+1 ) *256 ) -Z-65536 ! 

2040 IF K=2 THEN WIDTH 40 : GOSUB *PA I NTli RETURN 

2050 IF K=3 THEN GOSUB *OLD . COLOR i RETURN 

2060 IF K=6 THEN WIDTH 40 : GOSUB *MAKE. LINE. COLOR: RETURN 

2070 *PAINT1 

2080 U=1 : CONSOLE 24, li LOCATE 0,24 

2090 GOSUB *PD.PEEK: IF C0L>215 THEN C0L=215-C0L 

2100 IF X=0 AND Y=0 THEN GOSUB *BELL SPRINT 'MENU ;fF’U772l ?' s s A*=INPUT*< 1 ) SEND 

W=Ws RETURN 

2110 PRINT U.COL; 

2120 GET(X, Y )-STEP(2, 1 ) ,PG5S 

2130 LINE(X,Y)-STEP(2,1) , 2,BF 

2140 LINE(0,0)-(30,15),7,BFtLINE(0,0)-(30,15),0,B 

2150 INPUT 'COLOR A'sCOL* 

2160 IF COL*='B' OR COL*='b' THEN W=W-4sU=U-l ELSE 2180 

2170 IF W<-1 THEN RETURN ELSE PUT(X.Y) ,PG'/S,PSET sGOTO 2090 

2180 IF COL*='F' OR COL*='f' THEN PUT ( X , Y ) , PGfc , PSET : W=W+4 s U=U+1 s GOTO 2090 

2190 IF COL$<>" THEN COL=VAL(COL*> 

2200 IF COL >215 OR C0L<-32 THEN 2150 
2210 IF COL>=0 THEN 2250 

2220 HT=PEEK ( Z+C0L*16 ) s IF HTO0 THEN GOSUB *RE AD. USERS. COLOR sGOTO 2270 
2230 INPUT ' F9079L9Y7t> ! F9D 9 5.77J9 ?'sA$ 

2240 IF A*=" OR A$='Y' OR A*='y' THEN GOTO *MAKE . USERS . COLOR ELSE 2150 

2250 IF COL=0 THEN PAINT( 1 , 1 ) ,0 ,0 sGOTO 2280 

2260 GOSUB *T I LE . GENERATER 

2270 PAINTC 1,1), TILE*, 0 

2280 INPUT 'OK' I A*! IF A*<>" THEN 2130 

2290 PUT < X , Y ) , PGX , PSET 

2300 IF COL=0 THEN PAINTCX, Y) ,0 ,0 sGOTO 2350 

2310 IF COL<0 THEN GOSUB *READ. USERS. COLOR sGOTO 2330 

2320 GOSUB *T I LE . GENERATER 

2330 PAINT (X,Y) ,TILE$,0 

2340 IF COL<0 THEN C0L=215-C0L 

2350 POKE ( Z+W), COL :W=W+4sU=U+l s GOSUB *BELL sGOTO 2090 
2360 *OLD. COLOR 

2370 CLS s LOCATE 0,24: CONSOLE 24,1 

2380 A=USR1 ( 0 ) : COL=COL+SB 
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2390 IF X=0 AND Y=0 THEN ENDU=U:U=0:POKE ZA,(Z MOD 256>:P0KE Z A+ 1 r ( I NT < Z/256 ) + 
256): GOTO 2450 
2400 U=U+4 

2410 IF COL>215 THEN C0L=215-C0L:G0SUB *READ. USERS. COLOR: GOTO 2440 

2420 IF COL=0 THEN PAINT(X.Y) ,0,0 :GOTO 2380 

2430 GOSUB *T I LE . GENERATER 

2440 PAINT (X, Y) , TILES, 0 :GOTO 2380 

2450 A=USR1(0 ) 

2460 XOLD=X : YOLD=Y 
2470 A=USR1( 0 ) 

2480 IF SB=128 THEN 2460 

2490 IF X=0 AND Y=0 THEN WIDTH 40:CONSOLE 24,1:L0CATE 0,24:GOSUB *BELL:PRINT'M 
ENU If r U72D? ' j : A$= I NPUTS ( 1 ) : RETURN 
2500 IF COL=0 GOTO 2460 

2510 IF C0L<8 THEN LINE(XOLD, YOLD)-(X,Y) ,COL:GOTO 2460 
2520 COLH=INT(COL/10 ) :COLL=COL-COLH*10 

2530 L I NE ( XOLD , YOLD ) - ( X , Y ) , COLH , , &H AA AA : L I NE ( XOLD , YOLD ) - ( X , Y ) , COLL , , &H5555 : GOT 

0 2460 

2540 *DATA.MAKE:U=0 

2550 LINE(0,0)-< 10 , FNS( 8) ) ,0 ,BF:LINE(0 ,FNS(4) )-( 10 , FNS( 4 ) ) ,7:LINE<5,0 )-<5,FNS< 

8)), 7 

2560 GETC5.0 )-( 10 ,FNS<8) ) , A05s:GET(5,FNS(4) )-( 10 ,FNS<8) ) , A15i :GET(0 ,FNS<4 ) )-< 10 , 

FNS(8) ) ,A25i 

2570 GET(0 ,FNS(4) )-(5,FNS(8) ) , A3*:GET(0 ,0 )-(5,FNS(8) ) , A43::GET(0 ,0 )-( 10 ,FNS(8) ) 
,A5* 

2580 LINE(0 , 0 )-(639,FNS< 380 ) ) ,7,BF :CLS: CONSOLE 24,1:L0CATE 0,24:SCREEN SC,0 
2590 INPUT" i<— 70f H9'Js7 2<— G »-VA';K:IF KOI AND K<>2 THEN 2590 
2600 IF KOI THEN *GRAPH I C. CURSOR 

2610 INPUT' x,y' ;X,Y : IF X<-639 OR X>640 OR Y<-FNS(380> OR Y>FNS(380) THEN 2610 

2620 IF X=0 AND Y=0 THEN GOSUB *BELL : POKE ( Z+U ) , 0 : POKE ( Z+U+l > , 0 : POKE ( Z+U+2 ) , 0 : P 

OKE < Z+U+3 ) , 0 : U=U+4 : ENDU=U : GOTO 2660 

2630 IF X<0 THEN X=-X:PSET(X,Y) ,2:SB=128:G0T0 2650 

2640 LINE-(X.Y) ,0:SB=0 

2650 GOSUB *DATA. POKE: GOTO 2610 

2660 INPUT'PAINTING POINT' >X,Y:UHILE X>639 AND X<0 AND Y>FNS<380> AND Y<0:INPU 
T'PAINTING POINT' ;X,Y:UENO 

2670 IF X=0 AND Y=0 THEN GOSUB *BELL: POKE (Z+U) ,0 :POKE(Z+U+l ) ,0 :POKE( Z+U+2) ,0 :P 

OKE ( Z+U+3 ) , 0 : U=U+4 : SCREEN SC , 2 : ENDU=U : RETURN 

2680 PAINT(X,Y),5,0 :SB=215:G0SUB *DATA. POKE: GOTO 2660 

2690 *MAKE. LINE. COLOR 

2700 CLS: SCREEN SC,0 

2710 CONSOLE 24,1: LOCATE 0,24 :U=0 

2720 GOSUB #PD.PEEK:U=U+4 

2730 XOLD=X : YOLD=Y 

2740 GOSUB *PD.PEEK:U=U+4 

2750 IF SB=128 THEN 2730 

2760 IF X=0 AND Y=0 THEN PRINT 'MENU If !)?21)?' ; :A$= INPUTS ( 1 ) : RETURN 
2770 LINE(XOLD, YOLD)-(X, Y) ,2 

2780 INPUT 'COLOR 'jCOLS 

2790 IF COLS='B' OR COLS='b* THEN 2800 ELSE 2840 

2800 U=U-12:IF U<0 THEN RETURN ELSE LINE(XOLD, YOLD)-(X, Y) ,0 : GOSUB *PD.PEEK:U=U 

+4 

2810 IF SB=128 GOTO 2730 

2820 GOSUB *PD . PEEK : U=U+4 : I F SB=0 THEN U=U-8: GOSUB *PD. PEEK :U=U+4: GOTO 2730 
2830 U=U-12: GOSUB *PD. PEEK :U=U+4: GOTO 2730 

2840 IF COLS=" THEN COL=COL:ELSE COL=VAL(COLS) 

2850 COLH= I NT ( COL/ 10 ) : COLL=COL-COLH* 10 

2860 IF COL<0 OR COLH >7 OR COLL >7 THEN 2780 

2870 IF COLH=0 THEN LINECXOLD, YOLD)-(X,Y) , COL: GOTO 2890 

2880 LINE ( XOLD , YOLD ) - ( X , Y ) , COLH , , &H A A A A : L I NE ( XOLD , YOLD ) - ( X , Y ) , COLL , , &H5555 

2890 U=U-4 : POKE (Z+U), COL :U=U+4: GOTO 2730 

2900 *READ. USERS. COLOR 

2910 HT=PEEK( Z+C0L*16) :P=-COL#16 

2920 IF HT=0 THEN GOSUB *BELL:PRINT 'NO DATA ! ’ ; : TILE*=CHR*(0 )+CHR*(0 )+CHR*(0 ) : 
RETURN 

2930 ON HT GOTO 2940,2960,2980,3000,3020 
2940 FOR 1=1 TO 3:TI ( I )=PEEK(Z-P+I ) :NEXT 
2950 TILE$=CHR$( TI ( 1 ) )+CHR$( TI (2 ) )+CHR$ < TI (3) ) : RETURN 

2960 FOR 1=1 TO 6 : TI ( I )=PEEK(Z-P+I ) :NEXT 

2970 TILE$=CHR$(TI(1))+CHR$(TI(2))+CHR$(TI(3))+CHR*(TI(4))+CHR$(TI(5))+CHR*(TI 

(6) ) : RETURN 

2980 FOR 1=1 TO 9:TI ( I )=PEEK( Z-P+I ) :NEXT 

2990 TILE$=CHR$(TI(1))+CHR$(TI(2))+CHR*(TI(3))+CHR$(TI(4))+CHR*(TI(5))+CHR*(TI 

(6) )+CHR$( TI (7) )+CHR*(TI (8) )+CHR$(TI(9 ) ): RETURN 
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3000 FOR 1=1 TO 12: TI ( I )=PEEK(Z-P+I ) : NEXT 

3010 TILE$=CHR$( TI ( 1 ) )+CHR$( TI ( 2 ) )+CHR$( TI ( 3 ) )+CHR$( TI ( 4 ) )+CHR$( T 1(5) )+CHR$( TI 
( 6 ) )+CHR$( TI ( 7 ) )+CHR$( TI ( 8 ) )+CHR$( TI (9 ) )+CHR$(TI < 10 ) )+CHR$( T 1(11) )+CHR$(TI ( 12 ) ) : 
RETURN 

3020 FOR 1=1 TO 15 : T I < I )=PEEK(Z-P+I ) :NEXT 

3030 T I LE$=CHR$ (TI ( 1 ) )+CHR$(TI (2) ) +CHR$ ( TI ( 3) )+CHR$( TI ( 4 ) )+CHR$( TI (5) )+CHR$( TI 

( 6 ) )+CHR$( TI ( 7) )+CHR$( TI ( 8 ) )+CHR$( TI (9) )+CHR$( TI ( 10 ) )+CHR$( TI ( 11 ) )+CHR$( TI ( 12 ) ) + 
CHR$(TI < 13) )+CHR$( TI ( 14 ) ) +CHR« ( T I ( 15 ) > : RETURN 
3040 *PD.PEEK 

3050 DA3=PEEK ( Z+U+2 ) : X=PEEK ( Z+U+ 1 ) + ( DA3 AND 240 >#16 

3060 Y =PEEK ( Z+U+3 ) + ( DA3 AND 15 )«256:C0L=PEEK( Z+U ) : Y=INT ( Y/SCALE ) : SB=COL AND 12 

8: RETURN 

3070 *T I LE . GENERATER 

3080 R=INT( COL/36) :G=INT( ( C0L-R*36)/6) :B=COL MOD 6 

3090 R1=T(R,0 ) :R2=T(R, 1 ) :G1=T<G,0 ) :G2=T(G, 1 ) :B1=T(B,0 ) :B2=T (B, 1 ) 

3100 TILE$=CHR$( B1 )+CHR$( R1 )+CHR$( G1 )+CHR$(B2 )+CHR$(R2)+CHR$( G2 > 

3110 RETURN 
3120 #DATA.POKE 

3130 Y=Y*SCALE : POKE ( Z+U > , SB : XH= I NT ( X/256 > : XL=X-XH#256 : YH= I NT ( Y/256 > : YL=Y-YH*25 

6 

3140 POKE< Z+U+l ) , XL : POKE ( Z+U+2 > , ( XH*16+YH > : POKE ( Z+U+3 ) , YL: U=U+4 : RETURN 

3150 #MAKE. USERS. COLOR 

3160 P=-C0L»16:UIDTH 80: CONSOLE 24,1: LOCATE 0,24 

3170 INPUT 'How Many Tiles' {HT: IF HT<1 OR HT>6 THEN 3170 

3180 ON HT GOTO 3230,3290,3360,3440,3530 

3190 LINE(,0,0)-(30,15),7,BF:LINE(0,0>-(30,15>,0,B 

3200 PAINT (1,1) ,TILE$ ,0 : UIDTH 40:CONSOLE 24,1:L0CATE 0,25 

3210 INPUT '3Lf“ ';A$:IF A$=" OR A$='Y' OR A$='y' THEN 2290 

3220 POKE (Z-P),0: GOTO 2140 

3230 INPUT '3 U data ’ :TI(1),TI(2),TI(3) 

3240 L=0 :FOR 1=1 TO 3: IF TI(I)<0 OR TI(I)>255 THEN L=1 

3250 NEXT: IF L=1 THEN 3230 

3260 TILE$=CHR$( TI ( 1 ) )+CHR$( TI (2) )+CHR$( TI (3) ) 

3270 POKE (Z-P),l :POKE ( Z-P+l ) ,TI ( 1 ) :POKE( Z-P+2) , TI ( 2) :POKE(Z-P+3 ) , TI (3 ) 

3280 GOTO 3190 

3290 INPUT '6 H7 data' ;TI ( 1 ) ,TI ( 2) ,TI (3) , TI (4 ) ,TI (5) ,TI (6) 

3300 L=0 :FOR 1=1 TO 6: IF TI(I)<0 OR TI(I)>255 THEN L=1 

3310 NEXT: IF L=1 THEN 3290 

3320 TILE$=CHR$( TI ( 1 ) )+CHR$( TI ( 2 ) )+CHR$( TI ( 3 ) )+CHR* ( TI (4 ) )+CHR$( TI (5 ) )+CHR$( TI 

(6) ) 

3330 POKE ( Z-P ) , 2 : POKE ( Z-P+ 1 ) , T I ( 1 ) : POKE ( Z-P+2 ) . T I ( 2 ) : POKE ( Z-P+3 ) , T I ( 3 ) 

3340 POKE (Z-P+4) ,TI (4) : POKE ( Z-P+5 ) ,TI (5) : POKE ( Z-P+6 ) , T I ( 6 ) 

3350 GOTO 3190 

3360 INPUT '9 U data' jTI ( 1 ) ,TI(2) ,TI (3) ,TI (4) ,TI<5) ,TI <6) ,TI(7) ,TI (8) ,TI<9) 
3370 L=0:FOR 1=1 TO 9:IF TI(I)<0 OR TI(I)>255 THEN L=1 
3380 NEXT: IF L=1 THEN 3360 

3390 T I LE$=CHR$ ( T I ( 1 ) ) +CHR$ ( T I ( 2 ) > +CHR* ( T I < 3 ) > +CHR$ ( T I ( 4 ) ) +CHR* ( T I ( 5 ) ) +CHR* ( T I 

( 6 ) )+CHR$(TI (7) )+CHR$(TI (8) )+CHR$(TI (9) ) 

3400 POKE ( Z-P ) , 3 : POKE ( Z-P+l ) , T I ( 1 ) : POKE ( Z-P+2 ) ,TI (2) : POKE ( Z-P+3 ) , T I ( 3 ) 

3410 POKE ( Z-P+4 ) ,TI ( 4) : POKE ( Z-P+5) ,TI (5) : POKE (Z-P+6) ,TI ( 6 ) 

3420 POKE ( Z-P+7 ) , T I ( 7 ) : POKE ( Z-P+8 ) , T I ( 8 ) : POKE ( Z-P+9 ) , T I ( 9 ) 

3430 GOTO 3190 

3440 INPUT '1237 data ' ;TI ( 1 ) ,TI ( 2) ,TI ( 3) ,TI ( 4 ) , TI (5) ,TI (6) ,TI ( 7) , TI < 8 ) ,TI (9) , T 
I ( 10 ) ,TI ( 11 ) ,TI ( 12) 

3450 L=0 :FOR 1=1 TO 12 :IF TKIX0 OR TI(I)>255 THEN L=1 

3460 NEXT: IF L=1 THEN 3440 

3470 T I LE$=CHR$ ( T I ( 1 ) ) +CHR$ ( T I ( 2 > ) +CHR* ( T I ( 3 ) > +CHR$ ( T I ( 4 ) ) +CHR$ (TI (5) ) +CHR$ ( T I 

(6) )+CHR$(TI (7) )+CHR$( TI ( 8 ) )+CHR$(TI (9) )+CHR$( TI ( 10 ) )+CHR$( TI ( 11 ) )+CHR$( TI ( 12 ) ) 
3480 POKE ( Z-P ) , 4 : POKE (Z-P+l ) ,TI ( 1 ) : POKE ( Z-P+2 ) , TI ( 2) : POKE ( Z-P+3 ) , T I ( 3 ) 

3490 POKE ( Z-P+4 ) , T I ( 4 ) : POKE ( Z-P+5 ) ,TI ( 5) : POKE ( Z-P+6 ) , TI ( 6 ) 

3500 POKE ( Z-P+7 ) , T I ( 7 ) : POKE ( Z-P+8 ) ,TI (8) : POKE ( Z-P+9 ) , T I ( 9 ) 

3510 POKE ( Z-P+10 ) , T I ( 10 ) : POKE ( Z-P+l 1 ) , T I ( 1 1 ) : POKE ( Z-P+12 ) , T I ( 12 ) 

3520 GOTO 3190 

3530 INPUT ' 1537 data' {TI ( 1 ) ,TI (2) ,TI (3) ,TI (4 ) ,TI (5) ,TI (6) ,TI (7) ,TI (8) ,TI (9) ,T 
I(10),TI(11),TI(12),TI(13),TI(14),TI(15) 

3540 L=0 : FOR 1=1 TO 15:IF TI(I)<0 OR TI(I>>255 THEN L=1 

3550 NEXT: IF L=1 THEN 3530 

3560 T I LE$=CHR* ( T I ( 1 ) ) +CHR$ ( T I ( 2 ) ) +CHR$ ( T I ( 3 ) ) +CHR$ ( T I ( 4 ) ) +CHR$ ( T I ( 5 ) ) +CHR$ ( T I 
( 6 >)+CHR$(TI (7) )+CHR$(TI ( 8 ) )+CHR$( TI (9) )+CHR$< TI ( 10 ) )+CHR$( TI ( 11 ) )+CHR$( TI ( 12) > + 
CHR$( TI (13) )+CHR$( TI ( 14 > )+CHR$( TI ( 15 ) ) 

3570 POKE ( Z-P ) , 5 : POKE ( Z-P+l ) , T I ( 1 ) : POKE ( Z-P+2 ) , T I ( 2 ) : POKE ( Z-P+3 ) , T I ( 3 ) 

3580 POKE (Z-P+4 ) , T I ( 4 ) : POKE ( Z-P+5 ) , TI ( 5) : POKE ( Z-P+6 ) , T I ( 6 ) 

3590 POKE ( Z-P+7 ) , T I ( 7 ) : POKE ( Z-P+8 ) , T I ( 8 ) : POKE ( Z-P+9 ) , T I ( 9 ) 

3600 POKE( Z-P+10 ), TI ( 10 ) :POKE( Z-P+ll ),TI( 11 ):POKE( Z-P+12 ),TI( 12) 
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★ a-fe-y ha— b'X/ r M^lgf*9j ( P C-6001. mkllKS) (aa-fe-y ha— bx£L h/ 

T\.'tT„ < L < li, 148~149^--y£ "*ibA, < /;'£ U' 0 ' ni--ft: 


176 



Az<ni o A(i<b. -< nttH), A&m*<%<TZl:n-?>?-y?iz 0 


©dp-i^ 2 

&& i ^5 3 cDSt-KTs 

mmzm.Kisnzmstf&'Otttfs c©£si& 

mnmwmxzm 


zmcrattorus?,, 

SS)fe^*Ov 1 ~4«S®E»^IRffi’CaiM»6 , fe 
to*}*?, Z(D^dj^k<nt5[,\o 




1000-1140 

s®s#5 (Dmmrnm 

3000-3050 

mmtsnizmm(D7‘-s>(Dft® 

3100 


3200 


3250 


3300 

rnmrnm 


4000 


4100 


4500-4560 

ftmomamwiz yztfntimm 

4600-4620 

ftmcDmons. 

4800 

m®s • 

5000-5060 


6000-6030 




177 







■f • 

■7TA *«*#(: l *'*US-r 5 H l*. 7>?A77<* 


-**8£**S-rS4„ 


,: ; .rl. iL'-i 'v,.. ..- • 


178 







lilllillllilllllliiililllllllllllllllilllllilllllllllllll 


llllllllllllflllllllllllltglllllEillillllllllllllllllSlSI 


7^A77^)V 1 


-Ol- Random F 


tbLj 

4 7^77-1 




So 


CD§H«SCZ<t:Xf»*tf5-3. 

#fflCtt*=F«feO«^»ffiU«taa)HCH:x 

***#*£»&, is^ci^ia, mvmstfx 
C*-3TC*cfi*S*«CD««aOffo 
3©^-5«S«73'«irc^S»C-D©Ts 
SCfiBS^ K#€IS«-C«Co ©^'Eo'Cy§± 
e^ru©-Dt\teiwcttat\o zcL’CBSfi©** 
erz^Ts igS^«^2/5nL'-hUt^^o 
s©^^.i:iSv®>qicp/toffi(zii^i!i\«'6iag’nev 
•©cfc-saaaaiHitfaB'Ox -enroanizcf-ors 
scg^s®^#, #s&*rrdi**;£rc«s 
tovst©*?. *Hs ^ig^s^^nst.© 
CBn ^«^©IHStt3^Cii5»C*&n* 
t>©T?£s 0 

S'5nL/->3>ffi^‘0S(S.s -^©d^Sfcffl 

£<> (zzna. -z»-©ffi*©ji«) 

±iz/v?s<. zamti&mscDcpim&iDV 

^^(Diztfs #R«EC£s^^figss£iffl 

ft£©a»)£EiM-S£g5$B\ ^S«-zl-K 
/©aspire, u^ffiJBSv •o^©<£-5iz*tt 


ft^©j?s x Mag =mt>+ mtsto +su*u3!j* 

ccrtt x - y ¥®Jzr©«S)£^*Tus#s,4i 

©5$«, X, y IZ©©Tffl 2 ©ffiSCIZ&So 
Sfflrs/^tDU^uti^nsffliSs ©s©® 
fix *WfiB0«l/Cl\Sdi$ju -&©[□ ]©^©± 
TrBsatUTct^^srfi*. cns©©^* 
*n*©2)fcowi/cu*o g^fflMsis i ctor:© 
So mnia, i»7ci®st3fi^i85Qffi^ffl 
WtU-C#fi!|TCtAS©tttfx Zffl^to©$l8(ZO 

i\tbhmws. 

*3U*y* ®feLTl'%i(^<7)±T'iS®) 

^i$cfci'T±M(7)^*%c^ns4-4r<7)z 

Ett» 

7CK75ZjBFM-7x 8*ffllvaP»BU PC-88 
01, PC-9801©N 88-BASICt, LEVELIIIMK5IZ 
ZfflBJ&fflWTCfex r^7-r'V<7H 

«*<*^-39tlBW«B'CfiSB^ , *fo 
Bw»HB*eT:fe«Bis«i«®^su wmz& 
or/ ^OSB35Stf , F M-7ffifSarCfc 6 0%ra< 
5tMSBTfT3©Jtfa*U,V, tOlo'C'fe, 353=9 
SKB^ortK z/uasi^^^<^m:<s© 


★ *-b-y h-9— t'X/ r i^?^;5J'>S j.P-->3 >ya^vAj (FM-7/8, 

P C -8801/9801, LEVELffl Mark5 US) 0)*-te -y h .-fr-tf* iLTUJt, 
<*>L<», 148~149^-5> *:r<-> A, < £*(.'. 


■A'jy+lbJOO^LA 


€Mnl 


nato zhjwzmimi^ lAsus^sapor 

USn&UCD'C. StS^ISSSSfflCx-TCES 

u a5tc*itit)rH5ns^£iUT:®€to*tex 
tt»s, lo-ctwesstf, &$£Bbso<D 7’ 
-7Ct-7r^5 0 x-7^2$OTx-7A, 
x-7Bt®/3\ 0 &b$h7cyF?LJJ -t-yzn 
z^y-yizsm s&mv&Zo 
7077 L>&RUH&'&Z>£:s Btm&nyot}, 
»*«*t«>Tiis®#tt^ia'c<*(W»= Cx 
iBSNskBtllttfSlifiBx OtfCx l^tf/uB 
»3UBx ftMOCttOrUC 
tZStfSPHWStfS^teSnSo BU4£)tf5Bt 
iW3»&Bx ®fficDH^©^m^a J ^T‘^to'CFq 
raiz^it&ttsxjx 

So ®#*BU5»5200flSr (MWtfeMBS© 
r s hsiziSx zoficMteMBo^sn*) £i/c» 
s#x ^cu-^fFt+iix 4ooartT»*B^. 
u>c/w©»6t>u>7ffl$£$#ns. loegg 
/£At)L/T35Wil/M/N«3-5o 
Z)«Cx itfteS£x-^IZt-^S#£^tf 
^0\r<S©T*x T7hRUNm'«8Bx Y 
£A2JU T-7A?t'VhL/gMIC?So T 
-7©s^m^cuu©r^5tfm©<£^iz 0 
<S:<C:«Si;H4ffiEacfflKr*Ct. 
tm^Bf^teBxCEEIKPOfflafiBCE!)) 
SUTx USSCl/CT-TAtfit* 

•D^Sx «i*KOtiiU x-7B^-fe'vh-U s 

®R*EU S^^l?©«S^t-7^So 
Idfflk HfrfcWrUTx *£tW«*ttS»6B 
*3\ st»©se>£jgO\ t = o # e»© 


S^ffl^lMZ^UTM^Atlx S^CL/fe^otx 

7-7 B^-tZ'Vh-U S47t?52 x-52 ©□ 

-Ktf#ftoS£x x-^BtaOB^cfc-SEI^K 
tftBSo ^«izx-7a^x sin&OBtfusfc* 
ffl^^o^'oggfet'us'oiiTOfe'vhu m 
ewBcwKt^v. ttizs^snrusi 1 m 
e m ,oosgiz«nii+^«©rx zzyyy-Oo 
JjgS£ 3: ttoTHSCBx 7—7 A *■&«/ h- <TSo 
z©g£x *n«ffl*cfihJT»5nsj;^Cb'c 
3 dS 0 S^Offlx-^^iMfiStx S©8g£x 
-90g#590gffll*C*^'C<S©7!x 

£Aft<rSo ^^x S:ffi££fflS# (ft^x 'D&'O 

MfflZt) ©SUKSgClSU'Cx 6 e©#5-/*9 
->^t» | o®ri:®s®'Cx eni/\a#5-/*9- 
>#ii5nso ^B®75i#iz>«u i?^x « 
n^n^siS/EcnssiqiiZx Wisc^sizssstqi 
emui/cus. ssiiMBx M^fri/casstfx 

6.28gg^1i«Bffl0SH«rx 

t^t^tzsieo 

mmz 


*7077 UZ, mgtf r ^§8Bj (1983^8)3 

5) ettiue’feotHircaBS. popcom mmw> 

©SIZ t*5x POPCOM RSJSCifcML/S'feffl'C 
3dS 0 ii^Bx ^^JBtZfe'VNSei/teE 
£x »53I 

©igsa«ffl)Si»iz^©T:Bx r ^#i§Bj 
UCCJtMSlVi B35 x £SIZ<;DWA£t£®3&U 
CbUBlfiffl*® • ittRWI r ffib^SSt®Sj 
(.mmtt7}ls-!\"J77B34'0 &mivV<1ziS\,\o 


25 WIDTH 80, 25! CONSOLE 0,25,0,1 
130 CLS 3: COLOR 4 

200 IF F$= - Y" THEN GOSUB 1910iOPEN - CA 

SI: DATA - FOR OUTPUT AS #2 

260 ON KEY GOSUB 1720! 'WHEN INTERRUPTE 

D .SAVE DATA 

290 I J=2 

590 I J=5 

750 PSET< 320+GX*l 1 . 12 , 100-GY*5 > , I J 

780 PSET ( 320-GX#ll . 12, 100+GY*5> , I J 

820 IF GV<-2*VI THEN I J=2i RETURN 

830 IF GV>=-2*VI AND GV<-VI THEN IJ=6iRE 

TURN 

840 IF GV>=-2*VI AND GV<0 THEN IJ=4iRETU 
RN 

850 IF GV>=0 AND GV<VI THEN I J=5i RETURN 
860 IF GV>=VI AND GV<2*VI THEN IJ=liRETU 


870 IF GV>=2*VI THEN I J=3i RETURN 

940 CLS 3 ! LOCATE 0,24! PR I NT ‘TO INTERRUPT 

, HIT PF1. " ! ! IJ=5 

970 COLOR 7 ! LOCATE 0,0iPRINT USING ‘TIME 
=####.##■ ;Ti LOCATE 0,liPRINT USING "POIN 
T NUMBER #### " j I i I J=2 
1030 I J=2 

1400 GOSUB 19101 OPEN "CASliDATA 1 FOR INP 
UT AS #1 
1470 I J=5 

1600 GOSUB 1910: OPEN - CASliCONT.D - FOR I 
NPUT AS #1 

1770 F$= - CAS1 ! CONT . D ‘ 

1780 OPEN " CAS1 iCONT .D - FOR OUTPUT AS #2 
1880 IF F$< > "CASl! CONT. D* THEN RETURN 


RGBAASlt RGBAlj^KU. '*» =■ >*<&? R G B©£ff^* A* L X. SISY? <9 V*i:fe*IWI1- 
i, ^i-+-<s»BMft@»4:t'0«i*^gi»i'iSG?ci’©T'iSss«©a«/i , iSGns, mUUe>'<y=i>m*7 
- r 4 ^7‘v>nicoisrs4'«o-ci.'4„ 
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RF (Radio Frequency) A*** R F A**Sli'*y a R w-fc'07 > f d-Sjm: 

AJt4. 7's7 + A*#Si VHF©2f L -ri'Ar‘'4-«5*gS-* ! #i.-„ a*©SKli ± < 4 1-* ! . * 

^y3V©S**RF*^l;*#-r5i:|J. /(yayfli:, 







^'jvt^ya^L 


500 ’END OF SUB LOOP 

510 BX = X < I ) : GY=Y ( I ) : GOSUB 880: ’POINT RESET 

520 KEY (1) OFF 

530 X(I)=XX : Y < I ) =YY :U(I)=UU : V < I > =VV: ’ REPLACE TO ADVANCED VARIABLES 

540 GX = X (I ) :GY=Y(I> : GOSUB 730: ’POINT SET 

550 1=1+1 

560 KEY (1) ON 

570 IF K=NM THEN 290: ’NEXT STAR 

580 T-T+TS 

590 COLOR 5: ’CHANGE COLOR 

600 FOR J=1 TO NM 

610 GX=X<J> :GY=Y(J) : GOSUB 730: ’POINT SET 

620 NEXT J 

630 KEY <1) OFF 

640 IF F*<>"N" AND <T*10 MOD 0T*10>=0 THEN GDSUB 1790: ’SAVE DATA 

650 KEY <1> ON: 1=1 


660 GOTO 280 

670 ’END OF MAIN LOOP 

680 ’ PREFARAT I-QN FOR FUNCTION CALL 

690 R2=XP*XP+YP*YP+. 000001 : RA=R2+A2 

700 C1=-CA/SQR(RA> : C2=E0*AF/RA'F: C3= < 1 +2*F) 7RA-2/R2 

710 RETURN 

720 ’ GRAPHIC ROUTINE 

730 ’POINT SET - — 

740 IF I A< >0 THEN GOSUB 800 
750 F’SET (320+GX*l 1 . 12, 100-GY*5> 

760 GV=-GV 

770 IF IAOG THEN GOSUB 800 
780 PSET <320-GX*l 1.12, 100+GY*5) 

790 RETURN 
BOO ’SET COLOR 
£110 VI =2 

820 IF GV<-2*VI THEN COLOR 2: RETURN 
B30 IF GV>=— 2*VI AND GV<-VI THEN COLOR 6: RETURN 
840 IF GV>=-2*VI AND GV<0 THEN COLOR 4 : F:E TURN 
850 IF GV >=0 AND BV<VI THEN COLOR 5: RETURN 
860 IF GV>=VI AND GV<2*VI THEN COLOR 1: RETURN 
870 IF GV>=2*VI THEM COLOR 3: RETURN 

880 'POINT RESET - 

890 PRESET <320+BX*l 1.12, 100 -GY*5> 

900 PRESET ( 320-GX* 11.12,1 00+GY*5 ) 

910 RETURN 

920 ’GRAPHIC INITIALIZE 

930 COLOR 4: WIDTH BO, 25 

940 CLS: LOCATE 0,24:PRINT "TO INTERRUPT, HIT PF1."?:C0L0R 5 
950 RETURN 

960 ’PRINT DIMENSIONLESS TIME AND POINT NUMBER UNDER CALCULATION 

970 COLOR 7 : LOCATE 0,0:PRINT USING "TIME=####. ##"; T: LOCATE 0,1: PRINT USING "F'OIN 
T NUMBER U### " ; I : COLOR 2 
980 RETURN 

990 ’PRINT CPU TIME AND TIME INCREMENT 

1000 COLOR 7 

1010 LOCATE 72, 0: PRINT TIME* 

1020 LOCATE 72,1:F'RINT USING "DT =#. ### " ; DT 
1030 COLOR 2 
1040 RETURN 
105Q STOP 


1060 
1 070 
1080 
1090 
1 100 
1 1 10 
1120 
1130 
1 1 40 
1 130 
1160 
1 170 
1 1 80 
1190 
1 200 


INITIAL PATTERN GENERATION 
INPUT "RANDOM PATTERN ( Y/N) " S R* 

IF R*="Y" THEN GOSUB 1110 ELSE IF R*="N" THEN 
T**0 : ST-1 : TIME* = "00: 00: 00" 

RETURN 

’RANDOM DISTRIBUTION OF POINTS- - — 

INPUT "NUMBER OF POINTS" 5 NM: NM=INT <ABS (NM) ) 
RANDOMIZE ( VAL (RIGHT* (TIME*, 2) ) ) 

FOR 1=1 TO NM 

X < I ) =RND ( 1 ) *20- 1 0: V ( I ) =RND < 1 ) *20- 1 0 
R2=X(I> 2+Y(I> -2 
IF R2M00 THEN 1150 

U0=SQR(CA*R2) / (R2+A*A) . 75-SGR <R2) : ’ INI TIAL 
U < I > =— UO*Y ( I ) /S0R (R2) 

V ( I ) =+UO*X ( I ) /SOR (R2) 


GOSUB 1230 ELSE 1070 


CIRCULAR SPEED OF STARS 
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1210 NEXT I 
1220 RETURN 

1230 ’RING DISTRIBUTION OF POINTS 

1240 M-l: INPUT "NUMBER OF R I NGS " ; RN 
1250 FOR 1=1 TO RN 
1260 R=10/RN*I 

1270 N=INT <R*2) 

12B0 TH=RND<1) *2*3. 1416s ’RANDOM ANGLE 
1290 FOR J=1 TO N 

1300 X (M) =R*COS <TH> s Y (M) =R*SIN <TH) i R2=X (M) ' 2+Y <M> 2 

1310 U0=SQR(CA*R2> / <R2+A*A> . 75-SC!R(R2> 

1320 U <M) =— UO#Y (M) /SQR (R2) : V <M) =+UO*X (M) /SC1R (R2) 

1330 TH=3. 1416/N+TH 

1340 M=M<-1 

1350 NEXT J 

1360 NEXT I 

1370 NM=M~1 

1380 RETURN 

1390 ’ WATCH THE COMPUTED RESULT 

1400 GOSUB 1910: OPEN " I" , 1 , "CASO: DATA" 

1410 ON ERROR GOTO 1560 
1420 GOSUB 1 61 0; ’ READ DATA 

1430 INFtll "ENTER INCLINATION ANGLE OF GALAXY, -90< <90: 0 FOR FACE ON ":IA 
1440 GOSUB 920: ’GRAPHIC CLEAR O MJK FACE ON , IA 

1450 GOSUB 960: ’PRINT TIME 
1460 GOSUB 990: ’PRINT CPU TIME 
1470 COLOR 5 

1480 CI=C0S(IA#3. 14159/180) :’ INCLINATION (RADIAN) 

1490 SI=SIN(IA*3. 14159/180) 

1500 FOR 1=1 TO NM 

1510 GX=X (I) :BY=Y< I )*CI: ’ INCLINED GALACTIC DISK 
1520 GV= (GX+V ( I ) ) *SI : GOSUB 730 
1530 NEXI l 

1540 LOCATE 0,24:1NPU! "ENIER S TO STOP, 01HERWISE CONTINUE" S A* 

1550 IF A$< >"S" GOTO 1420 

1560 IF ERR=54 THEN PRINT "END OF FILE" 

1570 CLOSE 
1580 STOP 

I 590 ’ READ data from data file to continue 

1600 GOSUB 1910: OPEN " I " , 1 , "CASO: CONT. D" 

1610 ’READ PARAMETERS 

1620 INPUT #1, A,C,EO,F,CA,MS.TS,NM 

1630 ’READ VARIABLES 

1640 FOR 1=1 TO NM 

1650 INPUT #1, X (I) , Y < I > ,U(I) ,V(I) 

1660 NEXT I 

1670 INPUT #1,T,ST 

1680 ’ INPUT #1,TIM1*,TIM2$, riM3*:TIME*=TIMl*+ +TIM2*+" : "+TIM3* 

1690 INPUT #1 , TIM1*: TIME*=TIM1* 

1 700 A2=A*A : AF=A ' ( 2*F-2 ) 

1710 RETURN 

1721 -’ ' SAVE DATA TO CONT.D FOR FUTURE USE 

1730 COLOR 6: CLOSE 

1740 INPUT "SAVE DATA < Y/N) " 5 A* 

1750 IF A*="N" THEN 1890 ELSE IF A*<>"Y" THEN 1740 
1760 GOSUB 1910: ’WAIT ROUTINE 
1770 F*=" CASO: CONT.D" 

1780 OPEN "O" , 2, F* 

1 790 ’ SAVE PARAMETERS 

1800 PRINT #2 , A , C , EO , F , CA , MS , TS , NM 

1810 ’SAVE VARIABLES 

1820 ST=I 

1830 FOR 1=1 TO NM 

1840 PRINT #2, X (I) ,Y(I) , U ( I ) ,V(I) 

1850 NEXT I 

1860 PRINT #2, T, ST 

1870 PRINT #2, TIME* 

1880 IF F*<>" CASO: CONT.D" THEN RETURN 

1890 CLOSE 

1900 STOP: END 

1910 ’CASSETTE READY 

1920 INPUT "SET CASSETTE, AND HIT RETURN WHEN READY " ; Al*: RETURN 
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# CLASH GAME # 

# Programing # 

# Tadashi Osonoe # 

M Copyright <C> '83,9 # 

# ihu-basici # 


15 WIDTH40 s CLICK OFF 
Id DEFINT A-Z:TS=0: INIT 

17 CLS4 : SCREEN 8, 0, 0 : CONSOLE0, 25, 0, 40 : CGEN0 : SC = 0 

18 GOSUB 1 09 : GOSUB 115 

19 CLS4 :WIDTH40: COLOR 1, 0 

20 MX-161MY-21 :MT=1 :MC = 1 : RX=3 : RY=3 : RT= 1 :RC=! 

21 G0SUB26 * DOT=0 s RK-8.HA5 

22 PAUSE 10 

23 K “STICK <0> : ON MC GOSUB 45, 5 1 , 58, 65 i G0SU836 : ON RC GOSUS 72.81,90,99 

24 IF DOT-226 THEN 20 

25 G0T023 

26 CGEN1 1 FOR 1=0 TO 8STEP 2 ! COLOR ! : LINE <2 + 1,2 + 15- <3 0-1, 22-1 > , " , 3 

27 COLOR7 : LINE <3 + 1,3 + 0- <29-1 , B : NEXT I 

28 LJNEU1, 1 1 > - <2 1 , 13>, “ ",B 

29 CGEN0 

30 X= 16 : Y=3 » Z=9 : G0SUB34 : Y= 15 : Z-2 1 ! G0SUB34 : X-3 : Y= 12 : Z=9 : G0SU835 : X=23 : Z=29 : G0SU335 

31 C0L0R6 : LOCATE 14, 1 1 i PR INT”CLASH “ i LOCATE 16, 12 : PR INT"by “ : LOCATE 13, 13 : PR INT"T. 
OSONOE " i C0L0R2 i LOCATE 33, 3 ! PR I NT “TOP LOCATE 33, 8 : PR 2 NT" 1 UP " 

32 C0L0R7 1 LOCATE 33, 5 ! PRINTUSING "##### " ; TS : LOCATE 33, 1 0 : PR INTUS ING "#####"! SC 

33 CGEN1 SC0L0R4! LOCATE 16, 2 1 : PR INT“*“ : COLOR 3:L0CATE 3, 3 s PR INT"** : C0L0R7 i RETURN 

34 L INE <X, Y> - <X, Z> , " " i RETURN 

35 LINE <X, Y) - CZ, Y> RETURN 

36 END — 

37 IF MX-RX AND MY=RY THEN 38 ELSE RETURN 

38 FOR J=0 TO 2:F0R 1-7 TO 0 STEP - 1 s BEEP : COLOR 7, I:NEXT I,J 

39 CGEN0iCOLOR2: LOCATE 12, 1 1 ! PR I NT "GAME OVER " s C0L0R6 i LOCATE 14, 12 : PR INT“Push " J _0 

CATE 12, 13 1 PR INT“RET. Key *: PAUSE 8 : LOCATE 12, 1 1 : PR I NT" 11 ! LOCATE 14,12: 


PRINT" "SLOCATE 12, 13 : PR INT" PAUSE 8 : K*= INKEY*: IF KS-CHRSC13) THEN 

17 ELSE 39 

40 '======== SCORE ========== 


4 1 CGEN0 : SC-SC+ 1 0 : DOT-DOT+ 1 : GOSUB 1 08 

42 IF SOTS THEN TS-SC 

43 COLOR 7 : LOCATE 33, 5 : PRINTUSING "##### " ; TS : LOCATE 33, 1 0 : PR INTUS ING "#####“ : SC : CG 
ENl: RETURN 

44 '===== MYCAR / RIGHT Yh"7 ======== 

45 MA=INP<8.H3000+<MX+1> + <40*MY>> 

46 IF MA=8*H87 THEN MC=2: RETURN 

47 IF MX= 16 AND K =8 AND MT<4 AND MT> = 1 THEN LOCATE MX, MY: PR INT” *: MY-MY-2 : GOSUB 
5 0 : MT =MT + 1 

48 IF MX= 16 AND K=2 AND <MT<=4 AND MT>1> THEN LOCATE MX, MY: PR INT MY=MY+2:G0S 

UB5 0 : MT =MT- 1 

49 IF MA-8.HA5 THEN GOSUB 41 ' SCORE ? 

50 LOCATE MX, MY: PR INT" ": MX-MX+ 1 : COLOR 4 : LOCATE MX, MY: PR INT"*" : RETURN 

51 '====== MYCAR / UP YS" 7 ======= 

52 MA=INP<8,H3000+MX+<4 0JK(MY-1>>> 

53 IF MA-8.H87 THEN MC-3 : RETURN 

54 IF MY= 12 AND K=4 AND <MT<4 AND MT = > 1 > THEN LOCA^ MX, MY: PR INT" ■ : MX=MX-2 : GOSU 
B57 : MT =MT + 1 

55 IF MY= 12 AND K =6 AND <MT=<4 AND MT>1) THEN LOCATE MX, MY: PR INT" " : MX-MX+2 : GOSU 
B57 : MT *MT- 1 

56 IF MA-8.HA5 THEN GOSUB 41 ' SCORE ? 

57 LOCATE MX, MY: PR INT" ": MY=MY- 1 : C0L0R4 : LOCATE MX, MY: PRINT"*" : RETURN 

58 '======== MYCAR 7 LEFT YM'7 ============== 

59 MA=INP<S.H3000+(MX-1> + <40)KMY)> 

60 IF MA-8.H87 THEN MC=4: RETURN 

61 IF MX- 16 AND K =8 AND <MT< =4 AND MT>1) THEN LOCATE MX,- MY t PRINT" " : MY-MY-2 : GOSU 
B64 : MT -MT- 1 

62 IF -MX- 16 AND X-2 AND <MT<4 AND MT->1> THEN LOCATE MX, MY SPRINT 
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B64 :MT=MT+1 

63 IF MA=&HA5 THEN G0SU3 41 'SCORE ? 

64 LOCATE MX, MY:PRINT" MX=MX- 1 : C0L0R4 : LOCATE MX, MY: PR I NT"*" : RETURN 

65 ' MYCAR 7 DOWN = = = = = = = = = 

66 MA= INP (8.H3000+MX + <40*<MY+1) > ) 

67 IF MA=8,H87 THEN MC=1: RETURN 

68 IF MY* 12 AND K=4 AND <MT>1 AND MT*<4> THEN LOCATE MX, MYiPRINT" " : MX=MX-2 : GOSU 
B71 !MT=MT-1 

69 IF MY* 12 AND K =6 AND <MT<4 AND MT=>1> THEN LOCATE MX, MY: PR I NT* " : MX=MX+2 : GOSU 
B 71 : MT =MT + 1 

70 IF MA*8.HA5 THEN G0SUB4 1 'SCORE ? 

71 LOCATE MX, MY: PR I NT" ": MY=MY+ 1 : C0L0R4 : LOCATE MX, MY: PR INT"#" : RETURN 

72 '====== REDCAR 7 RIGHT ========= 

73 GOSUB80 

74 IF RA=8.H87 THEN RC=4: RETURN 

75 IF RX* 16 AND RT>MT THEN LOCATE RX, RY: C0L0R7 : PR INT CHR* <RK) : RY=RY-2 : GOSU880 : G 
OSUB 77 : RT=RT- 1 

76 IF RX= 16 AND RT<MT THEN LOCATE RX, RY: C0L0R7 : PR INT CHR* <RK) : RY=RY+2 : GOSUB80 : 
GOSUB '77 : RT=RT+ 1 

77 LOCATE RX, RY: C0L0R7 : PR INT CHR* <RK) : RX=RX+ 1 

78 RK=RA 

79 C0L0R3 : LOCATE RX, RY: PR INT"*" : RETURN 

80 RA=INP<8.H3000+<RX+1) + <40*RY)> : RETURN 

81 / = = = = = REDCAR 7 UP -CK? = = = = = = = = = = 

82 G0SUB89 

83 IF RA=8,H87 THEN RC=1: RETURN 

84 IF RY=12 AND RT>MT THEN LOCATE RX, RY: C0L0R7 : PR INTCHR* <RK) : RX=RX-2 : G0SUB89 : GOS 
UB 86 : RT =RT- 1 

85 IF RY*12 AND RT<MT THEN LOCATE RX, RY: COLOR? : PR INT CHR* <RK) : RX=RX+2 : G0SUB89 : GO 
SUB 86 : RT =RT+ 1 

86 LOCATE RX, RY: C0L0R7 : PR INTCHR* <RK) : RY=RY- 1 

87 RK*RA 

88 COLOR3: LOCATE RX, RY: PR INT” RETURN 

89 RA* INP (&H3080+RX+ <40*<RY-1> > ) : RETURN 

90 '== = = = REDCAR 7 LEFT = = = = === = = 

91 G0SUB98 

92 IF RA*&H87 THEN RC=2: RETURN 

93 IF RX=16 AND RT>MT THEN LOCATE RX, RY: C0L0R7 :PR INTCHR* <RK) : RY=RY+2 : G0SUB98 : GOS 
UB95 : RT =RT- 1 

94 IF RX* 16 AND RT<MT THEN LOCATE RX, RY: COLOR? : PR INTCHR* <RK> : RY=RY-2 : G0SU398 : GOS 

UB95 : RT*RT + 1 

95 LOCATE RX, RY: C0L0R7 : PR INTCHR* <RK) : RX=RX- 1 

96 RK*RA 

97 C0L0R3: LOCATE RX, RY: PR INT"*” : RETURN 

98 RA«INPC8,H3000+<RX-1) + <40*RY)) : RETURN 

99 '...=== REDCAR 7 DOWN 7N"7 ====== 

100 GOSUB 107 

101 IF RA=8,H87 THEN RC =3: RETURN 

102 IF RY=12 AND RT>MT THEN LOCATE RX, RY: C0L0R7 : PR INTCHR* <RK) : RX=RX+2 : G0SU3 1 07 : G 
OSUB 104: RT =RT- 1 

103 IF RY* 12 AND RT<MT THEN LOCATE RX, RY:C0L0R7 : PR INTCHR* <RK) : RX=RX-2 : GOSUB 1 07 : G 
OSUB 1 84 : RT »RT + 1 

104 LOCATE RX, RY:C0L0R7: PR INTCHR* <RK) :RY=RY+1 

105 RK=RA 

106 C0L0R3: LOCATE RX, RY: PR INT"*" : RETURN 

107 RA= INP (&H3000+RX+ <40*<RY+1> ) ) : RETURN 

1 08 TEMPOS 0 00: MUS IC "U1 304CDEFG : U1204EFGAB : VI 204GAB05CD " : RETURN 

109 DEFCHR*(&H87>*HEXCHR*<" 1824SAEBD75A24 1800000000000000000000000000000000") 

110 DEFCHR*(8,HA5)-HEXCHR*<" 00000000000000000800 182424 1800000000000000000000") 

1 1 1 DEFCHR* <&HE2 ) *HEXCHR* < " 00000000000000000000000000000000003C7E7E7E7E3C00 " > 

1 12 DEFCHR* <&HE4) =HEXCHR* ( " 003C7E7E7E7E3C00003C7E7E7E7E3C000000000000000000 " ) 

113 DEFCHR* (8.H20) =HEXCHR* <" 00000000000000000000000000000.0000000000000000000 " ) 

114 RETURN 

115 '===== TITLE PRINT ====== 

116 CS IZE 1 : C0L0R6 : LOCATE 8,4:PRINT40 "44 CLASH GAME 44":CSIZE0 

117 COLORS : LOCATE 1 0, 9 : PR INT"DOT 10 PTS" 

118 C0L0R3 : LOCATE 10, 12 : PRINT" I KEY FUNCTION I" 

119 COLOR l: LOCATE 13, 15 : PR INT"UP : < 8 ) " 

120 LOCATE 13, 16 : PR INT"DOWN : <2> “ 

121 LOCATE 13, 17 : PR INT”R IGHT: < 6 > " 

122 LOCATE 13, 18 : PR INT"LEFT : <4) “ 

123 C0L0R4 : LOCATE 1 0, 21 :PRINT"Push RETURN Xe 9 ":PAUSE 2:L0CATE 10,2l:PRINT» 

124 K*= INKEY*: IF K*=CHR*013> THEN RETURN ELSE PAUSE 2:G0T0123 
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10 REM ********** *********** 

20 REM * 6 BELTS * 

30 REM * BY TAKESHI UESAKA * 

40 REM * 1983/8/16 * 

50 REM ********************* 

60 COLOR ,,,0: PRINT "H":DIM C<24> 

70 GOSUB 4500 
80 MUSIC •‘♦C+C+E+E" 

90 GOSUB 6000 

100 MUSIC "+C+C+E+E" 

110 PRINT "a" 

120 GOSUB 500 
130 GOSUB 2000 
135 GOSUB 6500 

150 CURSOR 10* Os PRINT “EXERCISE C 1 3 KEY" 

160 CURSOR 10*1: PRINT "PROBLEM E23 KEY" 'J * I s M < 



WX mouse 3-(D(>C,r-A?>&E<D±$Z0)A1]U!ko 

i. trxvm <:&» L -Cift < o (7A=>» 

o *^*->***6 * wc&mtmt. 
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t TO V 


) FOR I» 

) COCC 

> COCO 

) CC=C ( 2 > s C ( 2 ) =C (11] 

> CC=C<3) :C<3)=C<12J 
) CC=C (5) : C (5) =C (8) s C (B 


>=C<22) :C<22)=C<2 


CC=C<21) : 

NEXT I 
GOSUB 2000 
RETURN 

REM *** t*:»I 3 *#* 

<V>3> THEN MUSIC "-C- 


0)=C<16> :C(16)=C(20> SC(20> = 
-C <15) : C < 1 5) =C < 1 9 ) s C < 1 9 ) =CC 
>C(13)SC(13)«C(17) SCC 17) = 
: C < 1 4 > : C < 1 4 ) =C < 1 8 ) : C < 1 8 ) = 
i C (6) =CC 


3 FOR 1=1 
) CC=C(41 
CC=C < 3 3 
COC ( 1 1 
COC <21 
COC <10 
COC <18 
NEXT I 
GOSUB 2< 
RETURN 


L TO V 


* : RETURN 


[7)=C<13> SC<13>=C<22> :C<22)=CC 
C < 3 ) =C < 6 ) : C < 6 ) =C < 1 6 ) : C < 1 6 ) =C <21) S C < 2 1 ) =CC 
C < 1 ) =C < 8 ) : C < 8 ) =C < 1 4 ) : C < 1 4 ) =C < 23 > 8 C < 23 ) =CC 
C < 2 ) =C < 5 ) : C < 5 ) =C < 1 5 ) : C < 1 5 ) =C < 24 ) : C < 24 ) =CC 
SC<10>=C<11) :C<11)*=C<12> SC<12)=C<9) :C<9>=CC 
SC<18)=C<17) SC<17)=C<20) :C<20)=C<19) :C<19)=CC 


REM « 

CURSOR 6, 2: PRINT C6, I ^ ■■ ■ | 

CURSOR 6, 3l PRINT [4,] "| ■ ■ ■ ■ ■ 

CURSOR 6,4: PRINT C3, J "BBk ■■ WM ■ 

CURSOR 6*5* PRINT C2* 3 "■ ■ ■ ■ ■ ■ 

CURSOR 6* 6: PRINT Cl, I IM W' V H BBi 

CURSOR 11, 11 SPRINT C5, 3 *'BV TAKESHI UESAKA" 
CURSOR 14,16: PRINT [ INT <RND < 1 > *7) +1 , 3 "HIT P 
GET A**IF A*="" THEN 4570 
RETURN 

REM *** *** 

CONSOLE 0,7 SPRINT "fl": CONSOLE 
CURSOR 2,2 

INPUT "Tl> f / Z WZ1) ? ";N 

IF N<1 THEN MUSIC M -C-C":G0T0 5530 

Al=-1 : A2=-l 

FOR J*1 TO N 

AA=INT <RND < 1 ) *6) +1 

IF AA=A2 THEN 5570 

IF <A2+AA=3)+<A2+AA=11> THEN 5620 
IF <A2+AA=7)*<A2*AA=12) THEN 5620 
GOTO 5630 
IF A1=AA THEN 5570 
V* I NT < RND < 1 ) * 7 ) + 1 

ON AA GOSUB 3500,3560,3620,3680,3740,3800 

A1-A2*A2»AA 

NEXT J 

CONSOLE 0,7* PRINT " H" = CONSOLE s RETURN 


3 REM I 

6010 PRINT "B" ! CURSOR 9, H PRINT "♦♦♦ 03" 
6020 CURSOR 12, 3* PRINT "EX. CA3C13CCR3" 
6030 CURSOR 10, 4* PRINT " 

6040 CURSOR 1,5 SPRINT 
6050 CURSOR 1,6*PRINT " I < A, B, C, D, E, F) 
6060 CURSOR 1,7 SPRINT "| 

6070 CURSOR 1,8s PRINT "171/7*1/./ BELT./ 
6080 CURSOR 1,9 SPRINT ' 

6090 CURSOR 1,10s PRINT " I <G, H, I 
CURSOR 1 , 1 1 s PR I NT " 1 71/7“ 1/7 
CURSOR 1,1 2s PRINT " ICUBE tr 
CURSOR 1,13: PRINT 
CURSOR 1,14: PRINT 
CURSOR 1,15s PRINT 
CURSOR 1,16s PRINT 
CURSOR 1,1 7s PRINT 
CURSOR 1,1 8: PRINT 
CURSOR 1,19s PRINT 
CURSOR 1,20 SPRINT 
CURSOR 1,21 SPRINT 
CURSOR 14, 23s PRINT L I NT <RND 


6190 

6200 

6210 

6220 

6230 

6510 F 
6520 F 
6530 C 
6540 E 



GET f 
RETURN 


s IF fi 


* THEN 6210 


PRINT C5,3 CSsNEXT I : RETURN 

^,9, 23, A, 23, 11, A, 34, 22, A, 9, 7, B, 4, 23, B, 26, 8, B, 2 


* 5, 8, C, 16, 19,C,31,7,C, 26, 23, C,2, 11, D, 13, 22, D, 36, 7 

S, E, 17, 11, E, 22, 15, E, 38, 10, E, 1 , 21 , F, 1 7 , 16, F, 22, 20, F, 38, 15, F 
3 DATA 8, 10, G, 31,20, G, 6, 18, H, 25, 15, H, 14, 16, 1,33, 12, I 
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AtfC->/ < r#7« L$r>tz a 


^»So ?y>S0fi^|^ A£lfflC®x£, 
UAS 2®A , D^^T:feO 
SStMidttx UAh 3 

Tv Sg^C rESCl ^-nl-^/f^^T'V^ L>-C< 
£SU &1£7'J UAK3CD 
PR I NT^I, LPR I NTIZ«S»^n« 

0 <r^o Disk BASIC Ver ’2. OCDgglSs H 1 

(P.200)CD^xC^2/>^#^*'x.-C<e$Uo 

x7 T^J£f5i£C97u;^ BASICffiiTC&ilA 
7y>l?BSAVE #-1 "PAT. MA" £ 

uz-tz-7uz< t£tsi\, znv, -D£#e>t& c 

1 oady tL/TTBASIC^n— KU RUNSt 

nii. >f—Lsft7Z9— 

h-L^^o 


tttt^-^TDTx^UAh (BASIC®#) 


1000 CLEAR ,&HECFF :UIDTH 36:SCREEN 2:DEFINT A-Z:OPTION BASE 1 
1010 PRINT'?"-? I- 7500"? D-K-5.72' 

1020 BLOAD #-l , ' PAT .MA ' 

1030 KEY 1,'P'tKEY 2,'C':KEY 3,'R':KEY 4,V:KEY 5, 'GOTO 4200'+CHR$(13) 

1040 DIM R$(14),M$(4),PAI$(37,2),A(4,16),D(37),E(84),TEN(4),G(12),P(4),Q(4),R(4) 
,SX(4) :RAND0MIZE(TIME/2. 63118) :PCG=&HF500 

1050 C1=&H40 : C2=&H66 : C3=&H78 : FOR 1=1 TO 9 : PAI$( I , 1 )=CHR* ( Cl >+CHR$( Cl+1 ) : PAI$( I , 2 
)=CHR$(Cl+2)+CHR$(Cl+3) :C1=C1+4:PAI*( 1+10,1 )=CHR$(C2)+CHR$(C2+1 ) :PAI$( I+10,2)='d 
e' :C2=C2+2iPAI$( 1+20 , 1 )=CHR* ( C3 )+CHR$( C3+1 ) :PAI$( I +20 , 2 )=CHR$( C3+2)+CHR$< C3+3 ) : C 
3=C3+4 : NEXT 

1060 C0$=CHR$( 248 ) : C1$=CHR$( 249 ) : C2$=CHR*< 250 ) : C3$=CHR$( 251 ) : C4$=CHR* ( 252 ) ; C5$=C 
JHR$(253) :C6$=CHR$( 254 ) :C7$=CHR$(255) :PA$=' ^ ^ /+C4$+'^ 

1070 C1=&HE0 : FOR 1=31 TO 37: PAI$( I , 1 )=CHR$( Cl )+CHR*( Cl+1 ) :PAI$< I ,2 )=CHR*< Cl+2 )+C 
HR$(Cl+3) :C1=C1+4:NEXT : NM$( 1 )=C1$+ ' =■??» ' :NM$(2)=C2*+‘ h-OO' : NM$( 3 )=C3$+ ’ flS?+ ’ :NM$ 
(4)=C5$+'7?7 ' 

1080 FOR 1 = 1 TO 14 : R* ( I ) =CHR$ < &H40+ 1 ) : NEXT : FOR 1 = 1 TO 4 : TEN( I ) =27000 : NEXT :N3=1 : N 
7=1 :N8=10 :N9=60:RT=0 
1090 GOSUB 4120 

1100 C=2: GOSUB 4070:LOCATE 10,10,1:A$='/\ O Y ? J)*7fe" *' :PRINT C6$;:CALL PCG(A$):GOS 
UB 4100: GOTO 2550 
1110 ' reach ? 

1120 IF P(J1)=0 OR L<Q(J1> THEN RETURN 

1130 IF R(J1)=1 THEN RETURN ELSE Y=Jl*5-2: LOCATE 14,Y:R(J1)=1 

1140 SOUND 69,10 :A$=‘ : PR I NT C7$;:CALL PCG(A* ) :PRINT‘ <)-f ;CHR$<248+J1 ) : : IF 
Jl<4 THEN 1160 

1150 LINE( ( SX( J1 )-l )*2*8, ( Jl*5-1 )*8)-( (SX( J1 )-l )*2#8+15, ( Jl*5*8 )+7 ) ,0 : RETURN 
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Sequential File W*gffi7 7 4 » t K*. T-rwa-S'-® i 5 (:. ft®*! C,m* 

t-r- ? 7 4 ? brnsr-^m? i t< u-t\-3i(or- ? 

r ®*lj «-L&ltftlftc6&i>. ifc, 77 4/K?-S^i6(in-«S-iiiiT6«fti;li. 


1160 LINE( (SX( Jl)*2)*8, ( Jl*5+1 )*8 )-( < SX( J1 )*2 )*8+15 , ( ( Jl*5 >+l >*8+2 > ,0,BF: RETURN 

1170 ' pai display 

1180 IF A( J1 , 1 1 )=40 THEN 3760 

1190 LOCATE X,Y:CALL PCGCPAIS ( A( J1 , 1 1 ) , 1 ) ) : LOCATE X,Y+1:CALL PCG( PAI$( A( J1 , II ) ,2 
) ) i RETURN 
1200 ' ron ? 

1210 A( J1 , 14 )=E(L) :E=ECL) : IF P(J1)=0 THEN 1230 

1220 IF L>Q(J1)-1 THEN 1240 

1230 A=INT( RND( 1 )*60 )+8: IF L<A THEN 1250 

1240 IF A(J1,14)=A<J1,15) OR A( J1 , 14 )=A( J1 , 16 ) THEN 1620 

1250 I 1=14 :SOUND 37,3:S0UND 35,3 

1260 ' sutehai disp 

1270 X=SX(J1)*2:SX(J1)=SX(J1)+1:Y=J1*5-1:G0SUB 4110:GOSUB 1180:GOSUB 4060 
1280 IF P( 4 ) = 1 THEN 1300 ELSE GOSUB 4100 

1290 LOCATE 15 , 18:PRINT " - s C5$ { : FOR 1=1 TO 60:LOCATE 14,18:PRINT C5$;:A$ 

=INKEY$: LOCATE 14,18:PRINT C0$;:IF A$<>” THEN 3910 ELSE NEXTiPRINT SPC(19)j 

1300 IF L>67 THEN LOCATE 14 , 18:PRINT - ; :FOR 1=0 TO 4000:NEXT iN3=N3+l: IF N3 

>4 THEN 3270 ELSE 1100 

1310 ON J1 GOTO 1860,1910,1960 

1320 ' reach ? 

1330 IF A( 4 , 14 )=A(4 , 15) OR A( 4 , 14 )=A( 4 , 16 ) THEN P3=0:GOTO 1700 
1340 ' reach sutehai 

1350 X=SX( J1 )*2:SX( J1 )=SX< J1 )+l :Y=19: GOSUB 4110:GOSUB 1180:GOSUB 4060 
1360 X=(15-N4*3)*2-2:Y=21: GOSUB 3760: GOTO 2240 
1370 ' ron? 

1380 A=INT( RND< 1 )*60 )+10 
1390 IF L<A THEN 1410 

1400 IF A( J1,14)=A( J3.15) OR A( J1 , 14 )=A( J3, 16 ) THEN Ql=l {RETURN 
1410 Q1=0 {RETURN 
1420 ' print A-M 

1430 LOCATE 0,23{PRINT SPC(34){{F0R F=1 TO 13-N4*3 ! X=F*2-2 {LOCATE X.23:PRINT R$( 
F){ {NEXT 
1440 RETURN 
1450 ' reach 

1460 LOCATE 28 , 23 { PR I NT " ; i LOCATE 14, 18,0 : PRINT " 7* AY 1‘; {GOSUB 1480 : A( 4 , 15 )=F ! 
LOCATE 14,18! PRINT SPC<19) 

1470 LOCATE 14 , 18:PRINT 'IfM 2‘;:G0SUB 1480 : A(4, 16)=F:L0CATE 14, 18, 1 :GOSUB 1140: 
LOCATE 28 , 21 : PRINT ' " ; {LOCATE 28,22:PRINT' {LOCATE 28,23:PRINT 1 ’{{GOTO 153 

0 


1480 FOR F=1 TO 37: IF INT(F/10 )=F/10 THEN 1510 

1490 LOCATE 28,21:CALL PCG< PAI*(F , 1 )) {LOCATE 28,22:CALL PCGCPAI*(F,2) > 

1500 A$=INPUT$( 1 ) ! IF A$=CHR$( 13) THEN RETURN 
1510 NEXT F:F=0: RETURN 
1520 ' 

1530 FOR 1=1 TO 13-N4*3:F0R J=I+1 TO 14-N4*3 
1540 IF A(4, I )<A(4, J) THEN 1560 
1550 SWAP A(4, I ) ,A(4, J) 

1560 NEXT J, I :N2=13-N4*3{ Jl=4 

1570 'pai . . 

1580 FOR 11=1 TO N2:X=< 11-1 )*2: Y=21 :GOSUB 1180:LOCATE X,23:PRINT ;:NEXT 
1590 IF N4O0 THEN GOSUB 3840 
1600 RETURN 
1610 ' tsumo 

1620 GOSUB 3970 :FOR 1=80 TO 40 STEP -5 {SOUND I, 5 {NEXT 

1630 LOCATE 14, J1*5-2:PRINT NM*(J1);' □>' ; :P1=J1 :P=1 {GOTO 1730 

1640 GOSUB 4040 

1650 FOR 1=75 TO 30 STEP -5 {SOUND 1 , 5 {NEXT : GOTO 1670 

1660 IF J3=4 THEN FOR 1=40 TO 74 STEP 2:S0UND I,2:NEXT ELSE FOR 1=60 TO 40 STEP 
-5 {SOUND I, 5 (NEXT 

1670 LOCATE 14, J1*5-2{PRINT NM*(J1){* J 7!)DS - { :P3=J1 
1680 LOCATE 14 , J3*5-2:PRINT NM$<J3);‘ J □>’! 

1690 Jl= J3 : P2= J3 : P=2 : GOTO 1730 

1700 GOSUB 40d0 :FOR 1=60 TO 82 STEP 4:S0UND I,l:SOUNO I-2,1:NEXT I:J1=4 
1710 Pl=4: LOCATE 14,18:PRINT ’7t9 J 'Vf □>”{ 

1720 ' 

1730 GOSUB 3970 

1740 IF Pl=4 OR P2=4 THEN N2=13-N4*3 ELSE N2=13 

1750 COLOR 6 :FOR 11=1 TO N2{X=I1*2-2;Y=J1*5+1 {GOSUB 1180 :NEXT:GOSUB 4110 
1760 IF Pl=4 OR P2=4 THEN Il=14-N4*3 ELSE 11=14 
1770 A< J1 , II )=E 

1780 X= I 1*2-2 :GOSUB 1180:GOSUB 4110 

1790 IF Pl=4 OR P2=4 THEN IF N4O0 THEN GOSUB 3880 
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1800 IF P5=P1 OR P5=P2 THEN N3=N3-1 

1810 N3=N3+1 : IF N3>4 THEN FOR 1=0 TO 2000:NEXT I:GOTO 3240 

1820 COLOR 7 : A$= ' ' ' : GOSUB 4100:LOCATE 14 , 18 ,0 : PRINT ’HIT CRETURNO KEY" ; :CALL PC6( 
A$):F$=INPUT$(1) 

1830 GOTO 3240 
1840 ' 1 

1850 L=L+1:J1=1: GOSUB 1120:GOTO 1210 

1860 J3=2: GOSUB 1380: IF Ql=l THEN 1640 

1870 J3=3: GOSUB 1380: IF Ql=l THEN 1640 

1880 IF P( 4 )=1 THEN J3=4:G0SUB 1400: IF Ql=l THEN 1640 

1890 ' 2 

1900 L=L+1:J1=2: GOSUB 1120:GOTO 1210 

1910 J3=3: GOSUB 1380: IF Ql=l THEN 1640 

1920 IF P( 4 )=1 THEN J3=4:G0SUB 1400: IF Ql=l THEN 1640 

1930 J3=l : GOSUB 1380: IF Ql=l THEN 1640 

1940 ' 3 

1950 L=L+1:J1=3: GOSUB 1120:GOTO 1210 

1960 IF P( 4 )=1 THEN J3=4:G0SUB 1400:IF Ql=l THEN 1640 

1970 J3=l : GOSUB 1380: IF Ql=l THEN 1640 

1980 J3=2: GOSUB 1380: IF Ql=l THEN 1640 

1990 ' 4 

2000 L=L+1:I1=14-N4*3 
2010 J1=4:A(J1,I1)=E(L) 

2020 ' tsumo 
2030 E=E(L) 

2040 SOUND 36, 5: SOUND 40,5:SOUND 43,5:X=(15-N4*3)*2-2:L0CATE X-1,23:PRINT C6$;"'Y 

f " ; 

2050 Y=21: GOSUB 1180 
2060 IF P( 4 )=1 THEN 1330 

2070 GOSUB 4100 : LOCATE 14,18:PRINT"2f/W ?* ; :F$=INPUT$( 1 ) 

2080 IF F$=CHR$( 13 ) THEN LOCATE 20 , 18 : PRINT " >J " ; : A< 4 , 14-N4*3 )=38 : X=( 15-N4*3 )* 
2-2 :Y=21: GOSUB 3760: GOTO 2220 

2090 IF F*=V THEN LOCATE 27 , 18:PRINT ’ Q> " ; :GOTO 1700 
2100 IF N4O0 THEN 2140 
2110 IF F$="R" THEN P(4)=l 

2120 IF P( 4 )=1 THEN LOCATE 14 , 18 : PRINT " >J-f ZflU ’ ; :F*= INPUTS! 1 ) 

2130 IF F$=CHR$( 13 ) THEN 2080 
2140 FOR Fl=l TO 14-N4*3 
2150 IF F$=R$(F1 ) THEN 2180 
2160 NEXT :GOTO 2070 
2170 ' sutehai 

2180 I1=F1 :E=A( J1 , 1 1 ) : A( J1 , 1 1 )=40 

2190 LOCATE 0,21:PRINT SPC( ( 14-N4*3 ) *2+4 ): LOCATE 0,22:PRINT SPC< (14-N4*3)*2+4> 
2200 GOSUB 1530: GOSUB 1430 
2210 ' display 

2220 11=14 :A< J1 , II )=E:X=SX< J1 )*2:SX( J1 )=SX( J1 )+l :Y=19: GOSUB 4110:GOSUB 1180:GOSU 

B 4060: LOCATE 14,18:PRINT SPC< 20 ) ; : A( J1 , I 1 )=40 

2230 IF P( 4 )=1 THEN GOSUB 1460 

2240 J1=4:A( J1,14)=E 

2250 FOR J3=l TO 3 

2260 GOSUB 1380: IF Ql=l THEN 1640 

2270 NEXT J3 

2280 A( 4 , 14 )=40 

2290 IF L>67 THEN 1300 ELSE 1850 

2300 C1=INT(RND( 1 )*6 )+l :C2=INT( RND< 1 )*6)+l :C3=(C1+C2) MOD 4 

2310 IF C3=0 THEN P5=l ELSE IF C3=l THEN P5=4 ELSE IF C3=2 THEN P5=3 ELSE P5=2 
2320 COLOR 4 , 0 : CLS : L I NE ( 0 , 0 ) - ( 287 , 167 ) , 4 , BF : COLOR 7 

2330 C1=30+(P5 MOD 4+l):L0CATE 5,1:PRINT C1$;:CALL PCG(PAI*(C1, 1 > ) :PRINT C4$:L0C 
ATE 5, 2: PR I NT C1$;:CALL PCG(PAI$(C1 ,2) > :PRINT C4$; 

2340 LOCATE 5,0: PR I NT C6* i "7??" ;C4$; 

2350 L=0 : IF N3>4 THEN N3=l 

2360 LOCATE 0,1:PRINT USING" #";N3 

2370 A$= V : B$= ‘ " : FOR 1 = 1 TO 4:L0CATE 1 , I*5-2:PRINT NMS( I ) ; : LOCATE 6,I*5-2:CALL 
PCG<A$> {LOCATE 7, I*5-2:PRINT"7f/\° Y" ; :LOCATE 12, I*5-2:CALL PCG(B$):NEXT 
2380 LOCATE 10,0:PRINT C6* j * h“ 7 ‘ ; C4$ ; : LOCATE 10,1:PRINT C7S;:CALL PCG(PAI*(E(82) 
, 1) ) :PRINT" " ;C4$; : LOCATE 10,2:PRINT C7$: :CALL PCG(PAI*(E(82) .2) ) :PRINT" "iC4$; 
2390 LOCATE 17,0:PRINT C5* { : A$= ":::": B*= " 7-5>” +> " : CALL PCG(A$) :PRINT" ";:CALL PCG 
(B$) :PRINT" " { :CALL PCG( A$) :PRINT C4$; 

2400 LOCATE 17,1:PRINT C5* ; "PF1=*° > PF3=9-f ' { : LOCATE 17,2:PRINT C5$;"PF2=f- PF4 


=□>!"; 

2410 A ( 4 , 1 4 ) =40 : GOSUB 1530:GOSUB 1430 
2420 ON P5 GOTO 1950,1900,1850,2000 
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2430 ' juntsu 

2440 G= I NT ( RND ( 1 ) *3 ) : H=G* 10 +F : T=0 : V=0 

2450 IF D( H+T )=4 THEN ON U GOTO 2680,2850,2890 

2460 T=T+i : IF T<S+1 THEN 2450 

2470 D(H+V)=D(H+V)+1:V=V+1: IF V<S+1 THEN 2470 

2480 RETURN 

2490 ' toitsu 

2500 H=INT(RND( 1 )*37)+l 

2510 IF H/10=INT ( H/10 ) THEN 2500 

2520 IF D(HXP THEN 2530 ELSE 2500 

2530 D(H)=D(H)+Qi RETURN 

2540 ' clear 

2550 P1=0 i P2=0 s P3=0 : P4=0 i P5=0 : N4=0 : N5=0 : Q1=0 

2560 FOR 1=1 TO 4 : SX( I )=0 : R( I )=0 : P( I )=0 sNEXT 

2570 FOR 1=1 TO 37s0< I )=0 :NEXT sFOR 1=1 TO 12:G( I )=0 :NEXT 

2580 ' haipai 

2590 J1=0 

2600 J1=J1+1 :L=INT( RNO< 1 )*6) 

2610 IF L=5 THEN 3030 

2620 IF L=4 THEN A=4 ELSE A=3 

2630 B=INT (RND( 1 )#( A+l ) ) 

2640 IF B=0 THEN 2780 

2650 ' juntsu 

2660 E1=0 

2670 E1=E1+1 

2680 F=INT<RND( 1 )#7 )+l 

2690 S=2:U=1 iGOSUB 2440 

2700 FOR 1=1 TO 3 

2710 A( J1 , (El-1 )*3+I )=H+I-1 

2720 NEXT I 

2730 IF.EKB THEN 2670 
2740 IF B=4 THEN 3050 

2750 IF A=4 THEN 2780 

2760 IF B=3 THEN 2810 

2770 ' toitsu 

2780 FOR 1=1 TO A-B:P=2:Q=3:G0SUB 2500 

2790 A( J1 , < I-l+B)*3+l )=H:A< Jl, ( I-1+B)*3+2)=H: A( J1 , < I-l+B >*3+3>=H 

2800 NEXT I 

2810 IF L=4 THEN 3050 

2820 P=3iQ=2 iGOSUB 2500 

2830 A(J1,10)=H:A(J1,11)=H 

2840 IF L< >0 THEN 2880 

2850 F=INT ( RND( 1 )*6 )+2 : S=1 : U=2 

2860 GOSUB 2440 :A(Jl,12)=HsA(Jl,13) =H+1 

2870 A( Jl , 15)=H-1 : A( Jl , 16 )=H+2i GOTO 3090 

2880 IF LOl THEN 2950 

2890 N=INT(RND<1>*2> 

2900 IF N=0 THEN F=8 ELSE F=1 
2910 S=1:U=3 iGOSUB 2440 
2920 A( Jl , 12)=H ; A( Jl , 13)=H+1 

2930 IF F=1 THEN A(Jl,15)=H+2 ELSE A(J1,15)=H-1 

2940 A(J1,16)=0:GOTO 3090 

2950 IF L< >2 THEN 3070 

2960 F=INT (RND( 1 )*7)+l 

2970 G=INT<RND(l)*3)iH=G*10+F 

2980 IF D<H)=4 THEN 2960 

2990 IF D( H+2 )=4 THEN 2960 

3000 D(H)=D(H)+l:D(H+2)=D(H+2)+l 

3010 A(Jl,12)=HiA(Jl, 13 )=H+2 

3020 A( Jl , 15 )=H+1 i A( Jl , 16 )=0 i GOTO 3090 

3030 FOR M=1 TO 6 :P=3iQ=2 iGOSUB 2500 

3040 A(Jl,l+(M-l)#2)=HiA(Jl,2+(M-l )*2 )=H iNEXT M 

3050 P=4sQ=l iGOSUB 2500 

3060 A(Jl,13)=HiA(Jl,15)=H:A(Jl,16)=0: GOTO 3090 
3070 P=3iQ=2 iGOSUB 2500 

3080 A(Jl,12)=HiA(Jl,13)=HiA(Jl,15)=HiA(Jl,16)=A(Jl,10) 

3090 IF Jl<3 THEN 2600 

3100 FOR 1=1 TO 13 

3110 H=INT (RND( 1 )*37)+l 

3120 IF H/10=INT ( H/10 ) THEN 3110 

3130 IF D(H)=4 THEN 3110 

3140 A(4,I)=HiD(H)=D(H)+l:NEXT I 

M8t< 
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3150 L=0 : FOR 1=1 TO 37:D< I )=4-D( I ) :NEXT 

3160 FOR 1 = 1 TO 37i IF I/10=INT( 1/10 ) THEN 3190 

3170 IF D( I >=0 THEN 3190 

3180 FOR K=1 TO D( I ) :L=L+1 :E( L)=I :NEXT 

3190 NEXT I 

3200 FOR 1 = 1 TO 100 : A=INT( RND( 1 )*42 ) + l : B=INT( RND( 1 ) *42) +43: SOUND RND( 1 ) *82 , 1 : SUA 
P E( A) ,E(B) :NEXT I 
3210 ' 

3220 FOR 1=1 TO 3:P< I )=INT(RND( 1 )*2) :Q( I )=INT(RND( 1 )*66)+6:NEXT 
3230 GOTO 2300 
3240 C=3:G0SUB 4070 

3250 FOR 1=1 TO 3:IF P(I)=1 AND L>Q<I) THEN TEN( I )=TEN( I )-1000 : RT=RT+1000 ELSE N 
EXT I 

3260 IF P( 4 ) = 1 THEN TEN! 4 )=TEN( 4 )-1000 :RT=RT+1000 

3270 IF P1=0 THEN 3380 

3280 IF P50P1 THEN 3330 

3290 TEN(J1)=TEN(J1)+1200+RT 

3300 FOR 1=1 TO 4: IF I=J1 THEN 3320 

3310 TEN( I )=TEN( I )-400 

3320 NEXT Is 1 = 1200 sGOTO 3400 

3330 TEN( J1 )=TEN( J1 )+800+RT 

3340 FOR 1=1 TO 4 

3350 IF I=J1 THEN 3370 

3360 IF I=J2 THEN TEN( I )=TEN( I )-400 ELSE TEN( I )=TEN( I )-200 

3370 NEXT 1: 1=800 sGOTO 3400 

3380 J2=P3:IF P50P2 THEN 1=600 ELSE 1 = 1200 

3390 TEN ( J1 ) =TEN < J1 ) + 1 +RT : TEN ( J2 ) =TEN ( J2 ) - 1 

3400 LOCATE 2,5:PRINT CHR*<254 ) ; 1 fl/lOtaO 1 

3410 T$=RIGHT*( " *+STR*<I),4> 

3420 T$=T*+" 1 ‘sLOCATE 2,6:PRINT C7$; 1 99' ') ‘ssCALL PCG(T*) SPRINT 1 ')-f * ; :T 

*=STR*(RT>+* ! ‘sCALL PCG(T*):RT=0 
3430 FOR 1=1 TO 4 

3440 LOCATE 2, I«2+6:T*=RIGHT*< 1 ‘ +STR*( TEN( I ) ) ,7) 

3450 T$=T*+ ' ! ‘ : PR I NT NM*CI);:CALL PCG(T*):NEXT I 

3460 GOSUB 4100 : LOCATE 2,17:PRINT - Repl ay=CRETURN3 key A*= " 1 : CALL PCG(A*):A*= 
INPUT*! 1) 

3470 IF A*=CHR*( 13) THEN 1100 
3480 LOCATE 23, 17, li END 
3490 ' pon check 
3500 FOR 12=1 TO 12-(N4-1>*3 

3510 IF A( 4, I2)=A( J1 , II ) AND A( 4 , 12+1 >=A< J1 , I 1 ) THEN 3530 

3520 NEXT I2SL0CATE 14 , 18 i PRINT * f *” 7 AT ! ! * ;SPC(9) :GOTO 1310 

3530 GOSUB 3760 :X=< 30-N4*6 ) : Y=21 : GOSUB 1180 sLOCATE X, 23 SPRINT 1 

3540 N4=N4+1 S I=1+(N4-1 )*3:G( I )=E(L) :L=L+1 

3550 K=2+(N4-1 )#3:I1=I2:G(K)=A(4,I1):A(4,I1 ) =40 : GOSUB 3750 

3560 K=3+ ( N4-1 )#3 : 1 1= 12+1 : G< K ) =A< 4 , 1 1 ) : A < 4 , 1 1 ) =40 : GOSUB 3750 : N5=N5+1 

3570 GOTO 3670 

3580 ' chii input 

3590 IF Jl<>3 THEN 1300 

3600 GOSUB 3760 :X=<30-N4*6):Y=21: GOSUB 1180 sLOCATE X,23sPRINT - 
3610 LOCATE 14,18sPRINT SPC< 19) ; sLOCATE 14 , 18 : INPUT 1 V4M -l’jF* 

3620 IF F$= - 1 THEN GOSUB 3760 s X=Ll*2sY=Jl*5-l : GOSUB 1180:LOCATE 21,18:PRINT SPC( 
9) sGOTO 1310 

3630 N4=N4+1 : I=l+( N4-1 )*3: G( I )=E(L) :L=L+1 

3640 K=2+(N4-1)#3:G0SUB 3770SIF J=0 THEN N4=N4-1:L=L-1 sGOTO 3610 
3650 LOCATE 21 , 18: INPUT ‘ -2 - ;F* 

3660 K=3+ ( N4- 1 ) *3 s GOSUB 3770 :N5=N5+1 : IF J=0 THEN N5=N5-1:G0T0 3650 
3670 LOCATE 21 , 18 : INPUT 'if M ’ ; F* 

3680 FOR Fl=l TO 13-( N4-1 )*3 s IF R*(F1)=F* THEN 3700 
3690 NEXT sGOTO 3670 

3700 Jl=4 : I 1=F1 : E=A( J1 , I 1 ) : A( J1 , I 1 )=40 

3710 FOR 1=1 TO 13s FOR J=I+1 TO 14: IF A(4, 1 XA(4, J) THEN 3730 
3720 SUIAP A( 4, I ) , A(4, J) 

3730 NEXT J,I 
3740 GOTO 2190 

3750 N5=N5+1 : X=( 11-1 )*2 : Y=21 

3760 LOCATE X.YsPRINT 1 sLOCATE X.Y+l SPRINT 1 1 ; s RETURN 
3770 LOCATE 21,18:PRINT SPC(9) 

3780 FOR Fl=l TO 13-<N4-1)*3 
3790 IF R*(F1 )=F* THEN J=1 sGOTO 3820 
3800 NEXT :J=0: RETURN 
3810 ' 
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3820 I1=F1 :G(K)=A(4,I1):A(4, II )=40 :GOSUB 3750:RETURN 
3830 ' chi i pon pai 

3840 FOR 1=1 TO N4#3-1:F0R J=I+1 TO N4*3 
3850 IF G( I )<G( J) THEN SWAP G(I),G(J) 

3860 NEXT J,I 

3870 YA=21 s XA=0 : ' chii pon 

3880 J1=4:F0R 1=1 TO N4*3: I 1=11+I-(N4-1 )*3: A( J1 , II )=G( I ) 

3890 X=(36-N4*6)+< 1*2-2) :Y=21 

3900 GOSUB 1180 : A( J1 , II ) =40 : NEXT : RETURN 

3910 LOCATE 14,18:PRINT SPC( 19) ; : LOCATE 14,18:PRINT' 5-a? ' ; :C*=INPUT*< 1 ) 

3920 LOCATE 19,18 

3930 IF C$='P' THEN PRINT '*° > ' ; :GOTO 3500 

3940 IF C*='C' THEN PRINT'?- ' j :GOTO 3590 

3950 IF C$=V THEN P1=0 : P2=4 : J3=4 : GOSUB 4040JGOTO 1670 

3960 LOCATE 14, 18: PRINT SPC( 20 ) i : GOTO 1300 

3970 LOCATE 10,0 SPRINT C5$;'r7’ 

3980 11=14: A( J1 , II )=E(82) :X=11 : Y=1 : GOSUB 1180 

3990 IF Pl=4 OR P2=4 THEN IF P6=4 THEN 4020 ELSE 4030 

4000 IF P2O0 THEN IF P(P2)*L>Q(P2) THEN 4020 ELSE 4030 

4010 IF P1O0 THEN IF P<P1 )*L>Q(P1 ) THEN 4020 ELSE 4030 

4020 LOCATE 14 , 0 : PRINT' 9?' s s A( J1 , II )=E(83) :X=14: Y=1 : GOSUB 1180 

4030 RETURN 

4040 FOR A=1 TO 4:S0UND 60,5:FOR 1=1 TO 200 : NEXT : GOSUB 3760 
4050 FOR 1=1 TO 200: NEXT: GOSUB 1190:NEXT AsGOSUB 3760:RETURN 

4060 LINE! X*8 , < Y+2 ) *8-1 )-( X*8+14 , ( Y+2 ) *8-1 ) , 0 : PSET ( X*8 , ( Y+2 ) *8-2 ) , 0 : PSET ( X*8+14 , 
( Y+2) *8-2 ),0: RETURN 

4070 CLS: COLOR C : A$= ' O ’ : FOR X=0 TO 34 STEP 2: LOCATE X,0:CALL PCG( A$) : LOCATE 34- 
X, 23: CALL PCG(A$): SOUND 40+X,l:NEXT 

4080 A$='*‘ :B$="+' :FOR Y=1 TO 21 STEP 2: LOCATE 0,Y:CALL PCG<A$) : LOCATE 34,22-Y:P 
RINT CHR$ ( 248+C ) ; : CALL PCGI A$) : LOCATE 0,Y+1:CALL PCG(B$) : LOCATE 34, 22-Y+l SPRINT 
CHR$( 248+C ) ; : CALL PCG(B*):NEXT Y 

4090 LOCATE 13,0:PRINT C6$; sCALL PCGCPA*) SPRINT CHR$ ( 248+C ): RETURN 
4100 WHILE INKEY$<>" :UEND: RETURN 

4110 LOCATE X+2, Y SPRINT C4$:L0CATE X+2.Y+1 : PRINT C4$; S RETURN 

4120 C=2: GOSUB 4070:LOCATE 3,2:PRINT C6$; :A$= '?????': CALL PCG(A$) SPRINT' PCG 4 
' ; :CALL PCGIASO 

4130 LOCATE 1,4:PRINT C5$;'l COMPUTER 3Z> 7”> 5.72. ': LOCATE 1,6:PRINT C5*s'2 * 
°> ?- 0> A till PF+- ' 

4140 LOCATE 1,8:PRINT C5$s'3 'J-?( PF3) A ZflU J 7h 7?AY? *?' sLOCATE 1,9:PRINT C5* 
S' Jf' J AY? 7?t? 99' 9^ • ' : LOCATE 1,10:PRINT C5$s' 7A°-7 7* TX'jf' RETURN 

T' Zi‘j3 O' 

4150 LOCATE 1,12:PRINT C7$:L0CATE 1,13:PRINT C7$:F0R 1=0 TO 20 STEP 10:FOR J=1 T 
0 9: LOCATE J*3+2, 12:CALL PCG(PAI$( I+J, 1 ) ) : LOCATE J*3+2, 13:CALL PCG(PAI$( I+J.2) ) : 
NEXT JsFOR J=1 TO 1200 : NEXT: NEXT I 

4160 FOR 1=1 TO 7: LOCATE 1*3+2, 12:CALL PCG(PAI$( 1+30 , 1 ) ) sLOCATE 1*3+2, 13:CALL PC 
G( PAI$( 1+30 , 2) ) : NEXT IsLOCATE 26,12:PRINT' ' sLOCATE 26, 13:PRINT' 

4170 LOCATE 1,15:PRINT C4$|'by. Mitsuhiro’ ; :A*='?>' :CALL PCG(A$) SPRINT C6$i'for 
' sC7$; sCALL PCG(PA$) 

4180 LOCATE l,17sPRINT Cl$; ' 377° 09" iL A PASOPIA PCG 'sLOCATE 1,18:PRINT Cl$s'V7h 
13 ') 93“ +77o ' 

4190 LOCATE 1 ,20 :A$= '" SPRINT C7$s'HIT CRETURN3 KEY ! ' ; sCALL PCG(A$) sLOCATE 20,20 
, 0 : A$= I NPUT$ < 1 ) : LOC ATE 20,20,1s RETURN 

4200 KEY 1, 'FILES '+CHR$( 13) :KEY 2, 'LOAD "+CHR$(34) :KEY 3, 'SAVE ' +CHR$( 34 ) :KEY 4 
, '?TIME$'+CHR$( 13) :KEY 5, 'EDIT .'+CHR*(13) 



10 PRINT CHR*( 12) sUIDTH 80 

20 INPUT 'START ADDRESS=&H ' ; A$ : A=VAL < ' &H ' + A* ) 

30 PRINT USING'S. & 'sHEX$(A)s 

40 S=0 : FOR AD=A TO A+15 : X=PEEK( AD ) :S=S+X : PRINT R I GHT $('0"+HEX$(X),2);' 'ssNEXTsP 
RINT ' : ' ;RIGHT$( '0 '+HEX*(S ) ,2) SPRINT CHR$(30) iCHR*(30 ) 

50 PRINT USING'S. S. ';HEX$(A)s 
60 S=0:FOR AD=A TO A+15: A1$=INPUT$( 1 ) 

70 IF Al$< ' 0 " THEN PRINT CHR$ ( 28 ) ; CHR$ ( 28 ) ; : GOTO 100 

80 PRINT Al$; : A2$=INPUT$( 1 ) s IF A2$<'0' THEN PRINT CHRS( 28 ) ; s GOTO 100 

90 PRINT A2*s SPOKE AD , VAL( ' S.H ' +A1$+A2$ ) 

100 S=S+PEEK(AD) SPRINT’ ' ; sNEXT SPRINT ' : ' s RIGHT$( ' 0 ' +HEX$( S ) , 2 ) s ' OK? Y/N's 
110 A$=INPUT$( 1 ) : IF A*='N' OR A*='n' THEN PRINTsGOTO 30 
120 A=A+16:PRINT : IF (A MOD 256)=0 THEN PRINT 
130 GOTO 30 


199 
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10 FDR AD=&HED00 TO &HF3F0 STEP 16 
20 IF (AD MOD 256 )=0 THEN PRINT 
30 PRINT HEX$( AD) ; ' - ;:S=0 
40 FOR A=AD TO AD+15 

50 X=PEEK(A) :S=S+X:PRINT R I GHT$ ( " 0 ’ +HEX$ ( X ) , 2 ) : " 
60 NEXT A 

70 PRINT’ : ’ ;RIGHT$C ’ 0 ’ +HEX$( S ) , 2 ) 

80 NEXT AD 



200 




Om.5(BASIC- 1 )■ 



tcs-sw-sne . yJoy^\- 

*3CB\ n 

«uo#ij#*/tfctjlvri,\So w&j&oi£&&< 
zims&n-oizo ua-u aocttjaiOT^tf, 
as#5ECvi5>7b^ 0 -tac^uvtusSizu 
. wcfeiwajtO'^-W-* 


pretfw 


<i:^/^Oc5:•5a:^l5<hA;(!^i#CDc^^Jai5S■cg-7g , , 
shift & 

-®&T\ &l/C^5HU h\Zhtt' 0 , 
iZTm$$ 0 / \-WM£Z(D1j%V^V>y^te 
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wyy^yyno^u uas 



160 LET F 

170 LET SC0RE=O: LET MAN=3: LET LEVEL=1 
180 LET X = 1 5: LET Y™ J 8: LET DIST=0 
190 LET SDUND*«<E2sOUT 32,245sCLS 

220 LET KYssREEK (&702A) : iV KY THEN LET Y«Y-1:IF VPEEK (VP+33) >130 THEN G 



260 IF‘ D I St* i00 THEN LET LEVEL 5 
270 IF D I ST MOD 15=1 THEN PR IN- 
280 IF 01 ST MOD 21-1 THEN FRIN' 


:> OUT 32, SOUND: GOTO 2 


(30, 19) ; L.EFT 1> (FIELDS, LEVE 


- 0 , RND (13) +2 s SCOD O, JsOUT 3! 

1AN=0 THEN GOTO $OVER 
3 0,0s SCOL 0,7s GOTO 180 





+U- (\ c 


f $ 
31 


* 


-WHS 






■W 

IS 


«■ 


31 3»-> — '^VM 
^WFli^OOTIOTI — 

#mb*m o 

vrr.1 in-Hi -* 

(>W) 




s 



§>«§>« wa^. 



• C 0 > 'J -X« % ««(iMZ-700( J4-y)iHCiaLT*y ST. 
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390 PRINT "# □/ r?IT"j'l h7D7TUt -f #" 

400 GUTO 350 

410 PRINT CHR*(22> 

420 PRINT "9s i/1* ^ ; ";N1* 

430 PRINT "< 9a i >aM > < TT30 >" 

440 FOR J=1 TO 3 

450 PRINT M2*<I, J) ; TAB (20) ; M3* < I , J) 

460 NEXT J 
470 GOTO 660 

480 REM 9a£/3 / T-r'37 “3)1/ ‘jrj'in 
490 PRINT GHR*<22) 

500 PRINT "* 9-3i/3 / T-i 30 =) ZaO'Ia7i HTU % " 
510 PRINT: PRINT 

520 PRINT 11 1 : I'l/t-f , 2:i/3 0t'V , 3:fc3 7o:/" 
530 PRINT 

540 INPUT - KEY = ";Y1 
550 FOR 1=1 TU 3 
560 FOR J=1 TO 3 

570 IF D1*<Y1)=M3*(I, J) THEN GOBUB 700 
580 NEXT J 
590 NEXT I 
600 PRINT- 

610 PRINT "< Tai/i’Af > < 9-3=/a.y.( >■■ 

620 FOR 1=1 TO 9 

630 PRINT El* (I) 5 TAB (20) ; E2* < I > 

640 NEXT I 
650 REM 

660 PR I NT : PR I NT: PR I NT 

670 INPUT H, rr ? Y OR N " :Z* 

680 IF Z*="Y" THEN 250 
690 END 

700 REM h" O-fWT-OO ./ 9*7 

710 V=V+1 

720 El* (0) =M1* < I ) 

730 E2*<0)=M2*(I, J) 

740 RETURN 
1000 REM 
1010 REM 9-31/3 
1020 REM 
1030 DIM Dl* (3) 

1040 Dl* ( 1 ) ="I»/tM-" 

1050 Dl*(2)= ,, i/30t: , r , 

1060 Dl* <3)="t30ni/" 

1070 RETURN 
1080 REM ++++++++++ 

1090 REM 077" 5 
1100 REM ++++++++++ 

1110 PRINT CHR* ( 22) 

1120 PR 1 NT" It.'/ » 7 T?I : 

1130 PRINT", 

1140 PRINT" | 

1150 PRINT" I— 

1160 PRINT" | 

1170 PRINT" | 

1180 PRINT" I 
1190 PRINT" i— 

1200 PRINT- 

1210 PRINT TAB ( 28) 5 "T l:i»/1M" 

1220 PRINT TAB < 14) ; "T-i 37 tri/77 KEY | 2s v 
1230 PRINT TAB (2B) 5 "L 3:h3 701/" 

1240 RETURN 
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’f-aWMJ ! V-7T'* 
< *ai>a /4 > 

3 rvix 
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t‘J? r**r -tan 


nvv 
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VaW) 
X'Kt'f 
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£****«•>?. **.Tr*ATr*AfH^fc®»'. XTfflm®. POPCOM. l-Al- 
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BmdfflmBdm 

*»LT*J:-$o 


fctvt>Vr>tz<D? 

LIST '***«■$&, 

T’n^AfcHHK 

«j*T?§ 5 *,*;<* 0 



10 REM S-a^at'fy 7* n7“ 7*6 
20 PRINT CHR*<22) 

30 DIM Ml*(3) ,M2* (3,3) , M3S (3,3> ,E1S (9) ,E2S(9> 

40 GOSUB 1000 
50 GOSUB 1080 
60 REM 

70 FOR K=1 TO 3 

80 CURSOR 12*1: PRINT SPC<25) 

90 FOR J = 1 TO 3 

100 CURSOR l,J+4: PRINT SPC<19) 

110 CURSOR 21, J+4: PRINT SPC(8> 

120 NEXT J 

130 CURSOR 11,1: INPUT " ";M1S(K) 

140 FOR 1=1 TO 3 

150 CURSOR 1,1+4: INPUT “ " ; R*: M2* (K, I ) =LEFT* <R«, 18) 
160 CURSOR 21, 1+4: INPUT " " ; A* : A*=LEFT* ( A* , 1 ) 

170 IF A*>"3" THEN GOTO 160 
180 B=VAL<A*) 

190 CURSOR 22, 1+4: PRINT D1*(B) 

200 M3$ <K, I)=D1*<B) 

READY 
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20 PRINT CHR* (22) 

#1 

/ / ^ff#^-2O0PRINf CHR$ ( 22 )" ~"" 

> (J, B®£ ^ 

snv'Kti/t-c-rtoo 
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~7 's H 9 □ 

#7* hV 
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M 1 $( 1) 

M2 $ (1, 1) 

M2$ (1,2) 

M2 $ (1, 3) 

M3$ (1, 1) 

M3 $ (1, 2) 

M3 $ (1, 3) 

^EU 
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'>3 9 -try 
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x>yfc-r 
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M 1 $ ( 2 ) 

M2 $ (2, 1) 

M2 $ (2, 2) 

M2 $(2,3) 

M 3 $ (2, 1) 

M3 $ (2, 2) 

M3 $(2,3) 

'>7 If* 

37^71 


^E ') :* 0 t) 

v a ^ -tr "j 

x>y -fe-< 

t 3 0 P > 

h t7 V > 
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M 1 $ ( 3 ) 

M2 $ (3, 1) 

M2 $ (3, 2) 

M2$ (3, 3) 

M3 $ (3, 1) 

M3 $ (3, 2) 

M3$ (3,3) 



m i $( 1 )T*ei*aftfc 
nw.<r> i #S0*#<D 
M 3 $ 

(1J)0£CaK(i*0rt« 




fr##480*»<9*i©, 

3 / f- 'i 3«> -3/w 


e i soHiftatt* 
E2$(9)li»*fc 
wLTV'ifo 
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it 'y * * -r 


i-ava^i 

E 1 $( 1 ) 


r 7tfs\4'\*a 
tT)V E2 $ ( 1 ) 

^ y * ? tf-f 

E 1 $ ( 2 ) 


1f>->a ^yj-^ 

E 2 $ ( 2 ) 

vv-t f+h^V> 

E 1 $ ( 3 ) 


H 7^71 

E 2 $ ( 3 ) 

E 1 $ ( 4 ) 


E 2 $ ( 4 ) 

E 1 $ ( 5 ) 


E 2 $ ( 5 ) 

E 1 $ ( 6 ) 


E 2 $ ( 6 ) 

E 1 $ ( 7 ) 


E 2 $ ( 7 ) 

E 1 $ ( 8 ) 


E 2 $ ( 8 ) 

E 1 $ ( 9 ) 


E 2 $ ( 9 ) 


ZfUi. 



raUJ$*tt*4rW0 

£-£££ IfflV'Sfc© 
*/L*Cto 


&i*ite. £fst><og-ntmn?'ii'j> u 

KDZL ZL'iJiZL <„<*£»• *X«J 

■o 


•'5«8iJOft** , $* 

srn^MJ, 

PyUVyk Wb'tjWt) 
tt&L-C. WOtCftC* 

< t, yo^7Amt< 

**$Wo 


1000 REN +++++++++++++ 
t'0 10 REM *aVa / T-iBO 
1020 REM +++++++++++++ 
1030 DIM D 1 $ < 3 ) 

1040 D 1 $ ( 1 ) = " X»; tM' " 

1050 Dl$ <2) ^'L-aOUT' 

1 060 D 1 $ ( 3 > = " fca 0D1.' " 
1070 RETURN 


biWr#-§-40<7) 

ortwfct'nt 

v'^ci-etteo 
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70 FOR K=1 TO 3 

80 CURSOR 12,1 SPRINT SPC(25) 

90 FOR J=1 TO 3 

100 CURSOR 1,.J +4 SPRINT SPC(19) 

110 CURSOR 21 , J+4s F'RINT SPC<S) 

120 NEXT J 

130 CURSOR 11, is INPUT " ";M1*(K> 

140 FOR 1=1 TO 3 

150 CURSOR 1,1 +4 s INPUT " " ; R*s M2* <K, I > =LEFT* <R*, 18) 

160 CURSOR 21 , I+4s INPUT A*s A*=LEFT* (A*. 1 ) 

170 IF A*>"3" THEN GOTO 160 
180 B=VAL (A*) 

190 CURSOR 22, I+45PRINT D1*(B) 

200 M3*<K, I)=D1*(B) 

210 NEXT I 

220 FOR Z = 1 TO 1000 s NEX T L 
230 NEXT K 
240 REM 


Ol'CREMW 

trc< 



1 40 ~ 2 1 0 £ 

14Oe~21Of50FOR~NEXT3t(^ Kgg© 
fE*©«*SM2$ M3$ &AJJ 

1500© INPUTS 

t?r$iza BEC 8at&ri£ 

(DVs 150O©LEFT$:£T\ R $©£fl|18X 
M2$(K, I )|Zl/c£tA 
Z/lfCU^o S*fflP38ld\ 160OffllNPUT 


SCCs A $ CA^DcSHScTo LEFTS3CCA $ 
i £3SEtt«H9aH/Cxi70fTCx "3" 
&K) ASlAtSI: mAJ3TfZ>£ J 5 ! ?JL"S? u 
Tl W 0 "1" 

mmzQzav'gggu 

E o 180 < 3 ffiVALlSvX?d:UT:AS^nE^ 
200fTCf*3SSj£fM3 $ IZA9 Stfo 
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I f 1 3 > 3 > -f 

-M30 









ii / -*-j 

1=1 TO 9: El* ( I ) 


230 REM 
260 FOR 
270 V=0 
280 PRINT CHR* (22) 

290 PRINT "Tai/1-7( rail/ >Ot7 
300 INPUT "Tal/g. y-C -g* WJ 
310 IF Cl >2 THEN GOTO 250 
320 IF Cl =2 THEN GOTO 480 


A, 3 #1*0(7) 

SB {3 § tlX V '1Z 

b<W. '*'yk%x.Z<Dli 

ft#-§-280(7)ffi()§ 

KMio 



*LX[±}&W1rk. *<Di£'ig<D?r #-§•<?) 

t, fr#-§-3IO<7) 

IF-THEN GOTO 250 X\ 

^##25013 b k^XL Z ^fzfvK o 
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INPUTS*!. ff##57O0 
D 1 $(Y 1 ) = M3 $( I , J) 
b V' -5 t>*iS t>lfC-r t 





< -+3i>V/i > 

t') *0)T-t' 

hOVif 


Tf^7jl ? 


OR N 


1*6 0 tm^tltKDIt. *T##61O*‘(b64O£t:-0 
mstfbt o 




ff#-f-48O*^65Ott'0 

T'n^Ali. ( oj: 5**0 

4/iT**o 



C5T*SoS 

g]«r»Lfcfc£*'T:* 

*r$**fc*v'*'** 



*r#4§-290*‘<b320 

£T<7>t£6 

fc»t*e*fc, 




330 REM *3i.-1’7-T ^I'TO 
340 PRINT CHR$<22> 

350 INPUT "*3iJi.j(.'f O : ";N1* 

360 FOR 1=1 TO 3 

370 IF Nl*=M.l$m THEN GOTO 410 

380 NEXT I 

390 PRINT "# 3/ T^xr'i't h007HUfT7t ZV * 

400 GOTO 350 

410 PRINT CHR* (22) 

420 PRINT "9-3iJ1>7-f : ";N1* 

430 PRINT "< ^3i.'37-( > < T430 

440 FOR J=1 TO 3 

450 PRINT M2*(I,J);TAB(20)SM3*<I,J) 
460 NEXT J 
470 GOTO 660 


O |f<7>330 Glttft* 


REM 'r'S'Q-fk 

V"5 
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340 PRINT CHR*<2: 
350 INPUT "Ta=.-1>/- 


^ 3 *r * 'i '' ■ b 
ttj*C< soti, ft## 
340 b 3500® I 

T'tfco 



370 IF N1*=M1* 


THEN BDTU 41.0 


ft##370Otd5tC 

GOT04IOi 



< g-aL'a^-f > 

hT.O 

T4sn > 

* c ' x ' * * i^5 



vaWJ 

=C £fc>-?-c. 

jMI/ 5 ? 7^'!."y 


T»i t‘f 

tytf-xtr -iDiJ 


t3^ 


"rr trzTM ? y 

OR 

N 





*** •) i #A,.(-k VM • £iRJE£ • 12*) ^3^1;* L SfS# *$>*.'. 
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